diff options
| author | Miles Bader <miles@gnu.org> | 2008-06-17 11:28:06 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-06-17 11:28:06 +0000 |
| commit | 4271b4248d5e0add806a41ddbd6b0c99574eea8e (patch) | |
| tree | 67c03dff8be78f73cffcecdea2fead5bab6689f7 /lisp/mouse.el | |
| parent | d7ed971d66e88e94652a733670984ee6c8dd53a7 (diff) | |
| download | emacs-4271b4248d5e0add806a41ddbd6b0c99574eea8e.tar.gz emacs-4271b4248d5e0add806a41ddbd6b0c99574eea8e.tar.bz2 emacs-4271b4248d5e0add806a41ddbd6b0c99574eea8e.zip | |
Use buffer-face-mode for mouse font menu
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1252
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 44303ebade9..a67390fc0e4 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2521,22 +2521,15 @@ choose a font." (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 - (if (eq choice 'x-select-font) - (x-select-font) - (symbol-name choice)))) - (force-window-update (current-buffer)))))))) + (buffer-face-mode-invoke (font-face-attributes + (if (eq choice 'x-select-font) + (x-select-font) + (symbol-name choice))) + t (interactive-p)))))))) ;;; Bindings for mouse commands. |