Mercurial > emacs
changeset 12610:2e1cc7fae2ba
(menu-bar-update-yank-menu): Treat all-dashes specially.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 20 Jul 1995 06:14:12 +0000 |
| parents | 5cb83d6bbce1 |
| children | 04c737b6b30e |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Wed Jul 19 15:57:51 1995 +0000 +++ b/lisp/menu-bar.el Thu Jul 20 06:14:12 1995 +0000 @@ -398,6 +398,10 @@ (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))