X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/13d6898b0656b38da837261ec20a055a1be4a7e5..6c86337db3f2b22977d7b94b054458a2d446c504:/lisp/face-remap.el

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index be2207a993..09503d7c15 100644
--- 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)))