# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1019606860 0
# Node ID 71fd2ea78dcb88eb96e2738579ec03b51d65e087
# Parent  b9d6590397ef8165c26ba7644caf42419cc2068d
(menu-bar-update-buffers-1): Make sure `uniquify-buffer-name-style' is bound.

diff -r b9d6590397ef -r 71fd2ea78dcb lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Apr 23 20:36:01 2002 +0000
+++ b/lisp/menu-bar.el	Wed Apr 24 00:07:40 2002 +0000
@@ -1267,7 +1267,8 @@
   ;; (format "%%%ds  %%s%%s  %%s" menu-bar-update-buffers-maxbuf)
   (let* ((buf (car elt))
 	 (file
-	  (and (null uniquify-buffer-name-style)
+	  (and (or (not (boundp 'uniquify-buffer-name-style))
+		   (null uniquify-buffer-name-style))
 	       (or (buffer-file-name buf)
 		   (buffer-local-value 'list-buffers-directory buf))))
 	 (mod (if (buffer-modified-p buf) "*" ""))