# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1213284604 0
# Node ID 35f0faee6e04db80b6eef00fc0338e0a20f152f5
# Parent  352242a709c1d9b55559ae8a1abd9ea5961c4a91
(menu-set-font): Renamed x-font-dialog to x-select-font.

diff -r 352242a709c1 -r 35f0faee6e04 lisp/menu-bar.el
--- 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