Commit 1900a92b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-fixed-font-alist): Give multiple names for try for certain fonts.

(mouse-set-font): Handle these.
parent d49ab5a0
......@@ -1242,14 +1242,14 @@ and selects that window."
(defvar x-fixed-font-alist
'("Font menu"
("6x10" "-misc-fixed-medium-r-normal--10-100-75-75-c-60-*-1")
("6x12" "-misc-fixed-medium-r-semicondensed--12-110-75-75-c-60-*-1")
("6x13" "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-*-1")
("6x10" "-misc-fixed-medium-r-normal--10-100-75-75-c-60-*-1" "6x10")
("6x12" "-misc-fixed-medium-r-semicondensed--12-110-75-75-c-60-*-1" "6x12")
("6x13" "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-*-1" "6x13")
("lucida 13"
("7x13" "-misc-fixed-medium-r-normal--13-120-75-75-c-70-*-1")
("7x14" "-misc-fixed-medium-r-normal--14-130-75-75-c-70-*-1")
("9x15" "-misc-fixed-medium-r-normal--15-140-*-*-c-*-*-1")
("7x13" "-misc-fixed-medium-r-normal--13-120-75-75-c-70-*-1" "7x13")
("7x14" "-misc-fixed-medium-r-normal--14-130-75-75-c-70-*-1" "7x14")
("9x15" "-misc-fixed-medium-r-normal--15-140-*-*-c-*-*-1" "9x15")
("clean 8x8" "-schumacher-clean-medium-r-normal--*-80-*-*-c-*-*-1")
("clean 8x14" "-schumacher-clean-medium-r-normal--*-140-*-*-c-*-*-1")
......@@ -1298,13 +1298,22 @@ and selects that window."
"X fonts suitable for use in Emacs.")
(defun mouse-set-font (&optional font)
(defun mouse-set-font (&rest fonts)
"Select an emacs font from a list of known good fonts"
(x-popup-menu last-nonmenu-event x-fixed-font-alist))
(let (font)
(setq foo font bar fonts)
(while fonts
(condition-case nil
(modify-frame-parameters (selected-frame)
(list (cons 'font (car fonts))))
(setq font (car fonts))
(setq fonts nil))
(error (setq fonts (cdr fonts)))))
(if font
(progn (modify-frame-parameters (selected-frame)
(list (cons 'font font)))
;; Update some standard faces too.
(set-face-font 'bold nil (selected-frame))
(make-face-bold 'bold (selected-frame) t)
......@@ -1328,7 +1337,8 @@ and selects that window."
(make-face-italic (car (car rest)) (selected-frame)))))))
(error nil))
(setq rest (cdr rest))))
(error "Font not found"))))
;;; Bindings for mouse commands.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment