Mercurial > emacs

comparison lisp/mouse.el @ 4220:c89f55065260

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-set-font): Update faces bold, italic and bold-italic.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jul 1993 06:20:40 +0000
parents 3f5f55401364
children 829413cfe196
comparison
equal deleted inserted replaced
4219:24f3ca095be9 4220:c89f55065260
921 (defun mouse-set-font (&optional font) 921 (defun mouse-set-font (&optional font)
922 "Select an emacs font from a list of known good fonts" 922 "Select an emacs font from a list of known good fonts"
923 (interactive 923 (interactive
924 (x-popup-menu last-nonmenu-event x-fixed-font-alist)) 924 (x-popup-menu last-nonmenu-event x-fixed-font-alist))
925 (if font 925 (if font
926 (modify-frame-parameters (selected-frame) 926 (progn (modify-frame-parameters (selected-frame)
927 (list (cons 'font font))))) 927 (list (cons 'font font)))
928 ;; Update some standard faces too.
929 (set-face-font 'bold nil (selected-frame))
930 (make-face-bold 'bold (selected-frame) t)
931 (set-face-font 'italic nil (selected-frame))
932 (make-face-italic 'italic (selected-frame) t)
933 (set-face-font 'bold-italic nil (selected-frame))
934 (make-face-bold-italic 'bold-italic (selected-frame) t))))
928 935
929 ;;; Bindings for mouse commands. 936 ;;; Bindings for mouse commands.
930 937
931 (define-key global-map [down-mouse-1] 'mouse-drag-region) 938 (define-key global-map [down-mouse-1] 'mouse-drag-region)
932 (global-set-key [mouse-1] 'mouse-set-point) 939 (global-set-key [mouse-1] 'mouse-set-point)