From 7c70a955ac5b1dfba4abf75f64b983cbe67ad27b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 20 Jul 1995 06:14:12 +0000 Subject: (menu-bar-update-yank-menu): Treat all-dashes specially. --- lisp/menu-bar.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/menu-bar.el') 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)) -- cgit v1.2.1