Mercurial > emacs
comparison lisp/menu-bar.el @ 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 | dd342be41ef7 |
| children | c05399b944ab |
comparison
equal
deleted
inserted
replaced
| 12609:5cb83d6bbce1 | 12610:2e1cc7fae2ba |
|---|---|
| 396 string | 396 string |
| 397 (concat | 397 (concat |
| 398 (substring string 0 (/ yank-menu-length 2)) | 398 (substring string 0 (/ yank-menu-length 2)) |
| 399 "..." | 399 "..." |
| 400 (substring string (- (/ yank-menu-length 2))))))) | 400 (substring string (- (/ yank-menu-length 2))))))) |
| 401 ;; Don't let the menu string be all dashes | |
| 402 ;; because that has a special meaning in a menu. | |
| 403 (if (string-match "\\`-+\\'" menu-string) | |
| 404 (setq menu-string (concat menu-string " "))) | |
| 401 ;; If we're supposed to be extending an existing string, and that | 405 ;; If we're supposed to be extending an existing string, and that |
| 402 ;; string really is at the front of the menu, then update it in place. | 406 ;; string really is at the front of the menu, then update it in place. |
| 403 (if (and old (or (eq old (car front)) | 407 (if (and old (or (eq old (car front)) |
| 404 (string= old (car front)))) | 408 (string= old (car front)))) |
| 405 (progn | 409 (progn |