From a81a17c5fab3f1f12faf500066f4a200e66c9283 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 12 Jun 2008 15:30:04 +0000
Subject: [PATCH] (menu-set-font): Renamed x-font-dialog to x-select-font.

---
 lisp/menu-bar.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 66793a4a805..aa7cd194acf 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -632,8 +632,8 @@ 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-font-dialog)
-  		  (x-font-dialog)
+  (let ((font (if (functionp 'x-select-font)
+  		  (x-select-font)
   		(mouse-select-font)))
 	spec)
     (when font
-- 
2.11.4.GIT