diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-04 23:16:12 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-04 23:24:36 +0300 |
| commit | 943c45f68b7b954f311ec3c1c35ed21830223333 (patch) | |
| tree | 0834c99f52bb736f519f2b11ef1dc34680490326 /lisp/cedet/pulse.el | |
| parent | 255a011f0ecf004b31c59945b10154b10fac3af1 (diff) | |
| download | emacs-943c45f68b7b954f311ec3c1c35ed21830223333.tar.gz | |
Don't pulse the indentation, or the newline
* lisp/cedet/pulse.el (pulse-lighten-highlight)
(pulse-reset-face): Fall back to the inherited background
attribute in FACE.
(pulse-momentary-highlight-region): Add autoload cookie.
* lisp/progmodes/xref.el (xref--maybe-pulse): Don't highlight the
indentation, or the newline, if the line's non-empty
(http://lists.gnu.org/archive/html/emacs-devel/2015-05/msg00118.html).
Diffstat (limited to 'lisp/cedet/pulse.el')
| -rw-r--r-- | lisp/cedet/pulse.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 59fd5188643..07882efd632 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -133,7 +133,8 @@ Return t if there is more drift to do, nil if completed." (let* ((frame (color-values (face-background 'default))) (start (color-values (face-background (get 'pulse-highlight-face - :startface)))) + :startface) + nil t))) (frac (list (/ (- (nth 0 frame) (nth 0 start)) pulse-iterations) (/ (- (nth 1 frame) (nth 1 start)) pulse-iterations) (/ (- (nth 2 frame) (nth 2 start)) pulse-iterations))) @@ -154,7 +155,7 @@ Return t if there is more drift to do, nil if completed." "Reset the pulse highlighting FACE." (set-face-background 'pulse-highlight-face (if face - (face-background face) + (face-background face nil t) (face-background 'pulse-highlight-start-face) )) (put 'pulse-highlight-face :startface (or face @@ -238,6 +239,7 @@ Optional argument FACE specifies the face to do the highlighting." (point)))) (pulse-momentary-highlight-region start end face)))) +;;;###autoload (defun pulse-momentary-highlight-region (start end &optional face) "Highlight between START and END, unhighlighting before next command. Optional argument FACE specifies the face to do the highlighting." |