From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 20 Jul 1995 06:14:12 +0000 (+0000)
Subject: (menu-bar-update-yank-menu): Treat all-dashes specially.
X-Git-Tag: emacs-19.34~3249
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c70a955ac5b1dfba4abf75f64b983cbe67ad27b;p=emacs.git

(menu-bar-update-yank-menu): Treat all-dashes specially.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index ae6e07095f2..445732b95f6 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -398,6 +398,10 @@ Do the same for the keys of the same name."
 			(substring string 0 (/ yank-menu-length 2))
 			"..."
 			(substring string (- (/ yank-menu-length 2)))))))
+    ;; Don't let the menu string be all dashes
+    ;; because that has a special meaning in a menu.
+    (if (string-match "\\`-+\\'" menu-string)
+	(setq menu-string (concat menu-string " ")))
     ;; If we're supposed to be extending an existing string, and that
     ;; string really is at the front of the menu, then update it in place.
     (if (and old (or (eq old (car front))