From 6b8e486e9e0458926164a438933c04683396aeaf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Sep 1999 19:44:45 +0000 Subject: [PATCH] (font-menu-add-default): Simplify code. --- lisp/mouse.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 8615a4d65de..46a187ffc54 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1893,8 +1893,7 @@ and selects that window." (if (assoc "Default" elt) (delete (assoc "Default" elt) elt)) (setcdr elt - (cons (list "Default" - (cdr (assq 'font (frame-parameters (selected-frame))))) + (cons (list "Default" default) (cdr elt))))) (defvar x-fixed-font-alist -- 2.39.5