Mercurial > emacs

comparison lisp/mouse.el @ 4563:b9118969ce28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-menu-add-default): Use list, not cons, for new elt. Don't get confused if no Misc entry.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Aug 1993 19:22:35 +0000
parents 477fbf60722b
children c071de572565
comparison
equal deleted inserted replaced
4562:477fbf60722b 4563:b9118969ce28
886 ;; Font selection. 886 ;; Font selection.
887 887
888 (defun font-menu-add-default () 888 (defun font-menu-add-default ()
889 (let* ((default (cdr (assq 'font (frame-parameters (selected-frame))))) 889 (let* ((default (cdr (assq 'font (frame-parameters (selected-frame)))))
890 (font-alist x-fixed-font-alist) 890 (font-alist x-fixed-font-alist)
891 (elt (assoc "Misc" font-alist))) 891 (elt (or (assoc "Misc" font-alist) (nth 1 font-alist))))
892 (if (assoc "Default" elt) 892 (if (assoc "Default" elt)
893 (delete (assoc "Default" elt) elt)) 893 (delete (assoc "Default" elt) elt))
894 (setcdr elt 894 (setcdr elt
895 (cons (list "Default" 895 (cons (list "Default"
896 (cdr (assq 'font (frame-parameters (selected-frame))))) 896 (cdr (assq 'font (frame-parameters (selected-frame)))))