From 0eb9fef35324149c8bb30b5efae425292e0f842a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 26 Jul 1993 20:04:19 +0000 Subject: [PATCH] (font-menu-add-default): New function. --- lisp/mouse.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/mouse.el b/lisp/mouse.el index 3fb7c173621..b3ce6da6688 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -865,6 +865,17 @@ and selects that window." ;; Font selection. +(defun font-menu-add-default () + (let* ((default (cdr (assq 'font (frame-parameters (selected-frame))))) + (font-alist x-fixed-font-alist) + (elt (assoc "Misc" font-alist))) + (if (assoc "Default" elt) + (delete (assoc "Default" elt) elt)) + (setcdr elt + (cons (cons "Default" + (cdr (assq 'font (frame-parameters (selected-frame))))) + (cdr elt))))) + (defvar x-fixed-font-alist '("Font menu" ("Misc" -- 2.39.5