diff options
| author | Richard M. Stallman | 1999-09-05 19:44:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-09-05 19:44:45 +0000 |
| commit | 6b8e486e9e0458926164a438933c04683396aeaf (patch) | |
| tree | 02392394eab4968cd8abe39e632bf64a4a419beb | |
| parent | 045dee35ff74932bbaa0d603bd6f0b4e51a6fbd0 (diff) | |
| download | emacs-6b8e486e9e0458926164a438933c04683396aeaf.tar.gz emacs-6b8e486e9e0458926164a438933c04683396aeaf.zip | |
(font-menu-add-default): Simplify code.
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 1893 | (if (assoc "Default" elt) | 1893 | (if (assoc "Default" elt) |
| 1894 | (delete (assoc "Default" elt) elt)) | 1894 | (delete (assoc "Default" elt) elt)) |
| 1895 | (setcdr elt | 1895 | (setcdr elt |
| 1896 | (cons (list "Default" | 1896 | (cons (list "Default" default) |
| 1897 | (cdr (assq 'font (frame-parameters (selected-frame))))) | ||
| 1898 | (cdr elt))))) | 1897 | (cdr elt))))) |
| 1899 | 1898 | ||
| 1900 | (defvar x-fixed-font-alist | 1899 | (defvar x-fixed-font-alist |