changeset 95852:35f0faee6e04

(menu-set-font): Renamed x-font-dialog to x-select-font.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 12 Jun 2008 15:30:04 +0000
parents 352242a709c1
children 174293e3d9fc
files lisp/menu-bar.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Thu Jun 12 15:29:52 2008 +0000
+++ b/lisp/menu-bar.el	Thu Jun 12 15:30:04 2008 +0000
@@ -632,8 +632,8 @@
 (defun menu-set-font ()
   "Interactively select a font and make it the default."
   (interactive)
-  (let ((font (if (functionp 'x-font-dialog)
-  		  (x-font-dialog)
+  (let ((font (if (functionp 'x-select-font)
+  		  (x-select-font)
   		(mouse-select-font)))
 	spec)
     (when font