[Emacs-diffs] Changes to emacs/lisp/mouse.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/06/17 11:28:06

Index: mouse.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mouse.el,v
retrieving revision 1.339
retrieving revision 1.340
diff -u -b -r1.339 -r1.340
--- mouse.el    17 Jun 2008 05:57:29 -0000      1.339
+++ mouse.el    17 Jun 2008 11:28:06 -0000      1.340
@@ -2521,22 +2521,15 @@
               (text-scale-increase -1))
              ((eq choice 'face-remap-reset-base)
               (text-scale-mode 0)
-              (let ((entry (assq 'default face-remapping-alist)))
-                (when entry
-                  (setq face-remapping-alist
-                        (remq entry face-remapping-alist))
-                  (force-window-update (current-buffer)))))
+              (buffer-face-mode 0))
              (t
               ;; Either choice == 'x-select-font, or choice is a
               ;; symbol whose name is a font.
-              (make-local-variable 'face-remapping-alist)
-              (apply 'face-remap-add-relative
-                     'default
-                     (font-face-attributes 
+              (buffer-face-mode-invoke (font-face-attributes
                       (if (eq choice 'x-select-font)
                           (x-select-font)
-                        (symbol-name choice))))
-              (force-window-update (current-buffer))))))))
+                                          (symbol-name choice)))
+                                       t (interactive-p))))))))
 
 
 ;;; Bindings for mouse commands.