diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-20 06:14:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-20 06:14:12 +0000 |
| commit | 7c70a955ac5b1dfba4abf75f64b983cbe67ad27b (patch) | |
| tree | abec8a3f43b6964f66155d4a03f81c0f9893cd9e /lisp/menu-bar.el | |
| parent | 335b1952d2b110593fa8a4293e8598508aa6fbaa (diff) | |
| download | emacs-7c70a955ac5b1dfba4abf75f64b983cbe67ad27b.tar.gz | |
(menu-bar-update-yank-menu): Treat all-dashes specially.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |