From 2c09b70c8eb53d709eba293251a68bff6cc6ca1b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 13 Jun 2008 04:17:08 +0000 Subject: [PATCH] (menu-set-font): Use fboundp rather than functionp. --- lisp/ChangeLog | 6 ++++++ lisp/menu-bar.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4209b0f645f..88ffde53e51 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-06-13 Glenn Morris + + * menu-bar.el (menu-set-font): Use fboundp rather than functionp. + + * emacs-lisp/bytecomp.el (byte-compile-maybe-guarded): Doc fix. + 2008-06-13 Kenichi Handa * cus-face.el (custom-face-attributes): Add :foundry. diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index aa7cd194acf..cbb44da9664 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -632,7 +632,7 @@ by \"Save Options\" in Custom buffers.") (defun menu-set-font () "Interactively select a font and make it the default." (interactive) - (let ((font (if (functionp 'x-select-font) + (let ((font (if (fboundp 'x-select-font) (x-select-font) (mouse-select-font))) spec) -- 2.39.2