2 files changed, 5 insertions, 5 deletions

diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 515a6b439bb..caf581c56eb 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -820,12 +820,12 @@ visible, then highlight it."
                       (point) (get-buffer-window (current-buffer) 'visible))
                  (if (< (overlay-end region) (line-end-position))
                      (pulse-momentary-highlight-overlay
-                      region semantic-idle-symbol-highlight)
+                      region 'semantic-idle-symbol-highlight)
                    ;; Not the same
                    (pulse-momentary-highlight-region
                     (overlay-start region)
                     (line-end-position)
-                    semantic-idle-symbol-highlight))))))
+                    'semantic-idle-symbol-highlight))))))
           ((vectorp region)
            (let ((start (aref region 0))
                  (end (aref region 1)))
@@ -844,7 +844,7 @@ visible, then highlight it."
                    (pulse-momentary-highlight-region
                     start (if (<= end (line-end-position)) end
                             (line-end-position))
-                    semantic-idle-symbol-highlight)))))))
+                    'semantic-idle-symbol-highlight)))))))
     nil))
 
 (define-semantic-idle-service semantic-idle-local-symbol-highlight
@@ -874,7 +874,7 @@ Call `semantic-symref-hits-in-region' to identify local references."
            target (lambda (start end _prefix)
                     (when (/= start (car Hbounds))
                       (pulse-momentary-highlight-region
-                       start end semantic-idle-symbol-highlight))
+                       start end 'semantic-idle-symbol-highlight))
                     (semantic-throw-on-input 'symref-highlight))
            (semantic-tag-start tag)
            (semantic-tag-end tag)))))))
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 2f66950c7d3..efee11faf98 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2544,7 +2544,7 @@ purposes)."
                 (or (eq (aref vec i) ?\n)
                     (aset vec i
                           (make-glyph-code (aref vec i)
-                                           whitespace-newline)))))
+                                           'whitespace-newline)))))
             ;; Display mapping
             (aset buffer-display-table (cadr entry) vec)))))))