not compiling yet

[gnu-emacs] / lisp / face-remap.el

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index be2207a993f04c42ac7e05b5cdaa6d4f02a3c3c2..09503d7c1548557b1bd8f0f1756e5f48c25d9bf7 100644 (file)
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -315,12 +315,12 @@ a top-level keymap, `text-scale-increase' or
     (let* ((base (event-basic-type ev))
            (step
             (pcase base
-              ((or `?+ `?=) inc)
-              (`?- (- inc))
-              (`?0 0)
+              ((or ?+ ?=) inc)
+              (?- (- inc))
+              (?0 0)
               (t inc))))
       (text-scale-increase step)
-      ;; FIXME: do it after everu "iteration of the loop".
+      ;; FIXME: do it after every "iteration of the loop".
       (message "+,-,0 for further adjustment: ")
       (set-temporary-overlay-map
        (let ((map (make-sparse-keymap)))