procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use buffer-face-mode for mouse font menu

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1252
This commit is contained in:
Miles Bader 2008-06-17 11:28:06 +00:00
parent d7ed971d66
commit 4271b4248d
2 changed files with 8 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2008-06-17 Miles Bader <miles@gnu.org>
* mouse.el (mouse-appearance-menu): Use buffer-face-mode.
* face-remap.el (buffer-face-mode-face)
(buffer-face-mode-remapping): New variables.
(buffer-face-mode, buffer-face-set, buffer-face-toggle)

19
lisp/mouse.el
View file

@ -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.