HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ChangeLog fixes
[bpt/emacs.git]
/
lisp
/
cedet
/
pulse.el
diff --git
a/lisp/cedet/pulse.el
b/lisp/cedet/pulse.el
index
74dc1ec
..
e2a48a4
100644
(file)
--- a/
lisp/cedet/pulse.el
+++ b/
lisp/cedet/pulse.el
@@
-1,6
+1,6
@@
;;; pulse.el --- Pulsing Overlays
;;; pulse.el --- Pulsing Overlays
-;;; Copyright (C) 2007-201
1
Free Software Foundation, Inc.
+;;; Copyright (C) 2007-201
4
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Version: 1.0
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Version: 1.0
@@
-36,7
+36,7
@@
;;
;; `pulse-momentary-highlight-one-line' - Pulse a single line at POINT.
;; `pulse-momentary-highlight-region' - Pulse a region.
;;
;; `pulse-momentary-highlight-one-line' - Pulse a single line at POINT.
;; `pulse-momentary-highlight-region' - Pulse a region.
-;; `pulse-momentary-highlight-overlay' - Pulse an overlay
+;; `pulse-momentary-highlight-overlay' - Pulse an overlay
.
;; These three functions will just blink the specified area if
;; the version of Emacs you are using doesn't support pulsing.
;;
;; These three functions will just blink the specified area if
;; the version of Emacs you are using doesn't support pulsing.
;;
@@
-65,7
+65,7
@@
background color.
If the value is nil, highlight with an unchanging color until a
key is pressed.
If the value is `never', do no coloring at all.
If the value is nil, highlight with an unchanging color until a
key is pressed.
If the value is `never', do no coloring at all.
-Any other value means to the default pulsing behavior.
+Any other value means to
do
the default pulsing behavior.
If `pulse-flag' is non-nil, but `pulse-available-p' is nil, then
this flag is ignored."
If `pulse-flag' is non-nil, but `pulse-available-p' is nil, then
this flag is ignored."
@@
-77,7
+77,7
@@
this flag is ignored."
(:background "#AAAA33"))
(((class color) (background light))
(:background "#FFFFAA")))
(:background "#AAAA33"))
(((class color) (background light))
(:background "#FFFFAA")))
- "
*Face used at beginning of a high
ight."
+ "
Face used at beginning of a highl
ight."
:group 'pulse)
(defface pulse-highlight-face
:group 'pulse)
(defface pulse-highlight-face
@@
-85,7
+85,7
@@
this flag is ignored."
(:background "#AAAA33"))
(((class color) (background light))
(:background "#FFFFAA")))
(:background "#AAAA33"))
(((class color) (background light))
(:background "#FFFFAA")))
- "
*
Face used during a pulse for display. *DO NOT CUSTOMIZE*
+ "Face used during a pulse for display. *DO NOT CUSTOMIZE*
Face used for temporary highlighting of tags for effect."
:group 'pulse)
Face used for temporary highlighting of tags for effect."
:group 'pulse)
@@
-163,7
+163,7
@@
Return t if there is more drift to do, nil if completed."
(defun pulse (&optional face)
"Pulse the colors on our highlight face.
(defun pulse (&optional face)
"Pulse the colors on our highlight face.
-If optional FACE is provide, reset the face to FACE color,
+If optional FACE is provide
d
, reset the face to FACE color,
instead of `pulse-highlight-start-face'.
Be sure to call `pulse-reset-face' after calling pulse."
(unwind-protect
instead of `pulse-highlight-start-face'.
Be sure to call `pulse-reset-face' after calling pulse."
(unwind-protect
@@
-180,7
+180,7
@@
Be sure to call `pulse-reset-face' after calling pulse."
(defun pulse-momentary-highlight-overlay (o &optional face)
"Pulse the overlay O, unhighlighting before next command.
(defun pulse-momentary-highlight-overlay (o &optional face)
"Pulse the overlay O, unhighlighting before next command.
-Optional argument FACE specifies the fac
t
to do the highlighting."
+Optional argument FACE specifies the fac
e
to do the highlighting."
(overlay-put o 'original-face (overlay-get o 'face))
(add-to-list 'pulse-momentary-overlay o)
(if (eq pulse-flag 'never)
(overlay-put o 'original-face (overlay-get o 'face))
(add-to-list 'pulse-momentary-overlay o)
(if (eq pulse-flag 'never)
@@
-237,7
+237,7
@@
Optional argument FACE specifies the face to do the highlighting."
(defun pulse-momentary-highlight-region (start end &optional face)
"Highlight between START and END, unhighlighting before next command.
(defun pulse-momentary-highlight-region (start end &optional face)
"Highlight between START and END, unhighlighting before next command.
-Optional argument FACE specifies the fac
t
to do the highlighting."
+Optional argument FACE specifies the fac
e
to do the highlighting."
(let ((o (make-overlay start end)))
;; Mark it for deletion
(overlay-put o 'pulse-delete t)
(let ((o (make-overlay start end)))
;; Mark it for deletion
(overlay-put o 'pulse-delete t)