changeset 95871:75191063f8b6

(menu-set-font): Use fboundp rather than functionp.
author Glenn Morris <rgm@gnu.org>
date Fri, 13 Jun 2008 04:16:42 +0000
parents 2169bb17fe3d
children 7d6cf08604f7
files lisp/menu-bar.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Fri Jun 13 04:16:23 2008 +0000
+++ b/lisp/menu-bar.el	Fri Jun 13 04:16:42 2008 +0000
@@ -632,7 +632,7 @@
 (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)