diff options
| -rw-r--r-- | lisp/mwheel.el | 4 | ||||
| -rw-r--r-- | lisp/profiler.el | 2 | ||||
| -rw-r--r-- | lisp/vc/ediff-util.el | 8 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 3b93bd1d5e4..32fde0dd058 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -203,13 +203,13 @@ Also see `mouse-wheel-tilt-scroll'." (defvar mouse-wheel-left-event (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-left - (intern "mouse-6")) + 'mouse-6) "Event used for scrolling left.") (defvar mouse-wheel-right-event (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-right - (intern "mouse-7")) + 'mouse-7) "Event used for scrolling right.") (defun mouse-wheel--get-scroll-window (event) diff --git a/lisp/profiler.el b/lisp/profiler.el index 0a5ddc1df46..bf8aacccc37 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -305,7 +305,7 @@ Optional argument MODE means only check for the specified mode (cpu or mem)." (let ((fun-map (make-hash-table :test 'profiler-function-equal)) (parent-map (make-hash-table :test 'eq)) (leftover-tree (profiler-make-calltree - :entry (intern "...") :parent tree))) + :entry '... :parent tree))) (push leftover-tree (profiler-calltree-children tree)) (maphash (lambda (backtrace _count) diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 52878bad8a7..e28d8574b1c 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el @@ -4129,10 +4129,10 @@ Mail anyway? (y or n) ") (ediff-with-current-buffer standard-output (fundamental-mode)) (princ (format "\nCtl buffer: %S\n" ediff-control-buffer)) - (ediff-print-diff-vector (intern "ediff-difference-vector-A")) - (ediff-print-diff-vector (intern "ediff-difference-vector-B")) - (ediff-print-diff-vector (intern "ediff-difference-vector-C")) - (ediff-print-diff-vector (intern "ediff-difference-vector-Ancestor")) + (ediff-print-diff-vector 'ediff-difference-vector-A) + (ediff-print-diff-vector 'ediff-difference-vector-B) + (ediff-print-diff-vector 'ediff-difference-vector-C) + (ediff-print-diff-vector 'ediff-difference-vector-Ancestor) )) |