diff options
| author | Richard M. Stallman | 2004-04-20 20:54:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-04-20 20:54:00 +0000 |
| commit | d08fd12f3afa17c87d998130b072e7e2f2c7b262 (patch) | |
| tree | a44360e3e9298484e022aba3be58aca0a615116b | |
| parent | 69e73dd3d3564aebfc13a2edcc44b0d578e48760 (diff) | |
| download | emacs-d08fd12f3afa17c87d998130b072e7e2f2c7b262.tar.gz emacs-d08fd12f3afa17c87d998130b072e7e2f2c7b262.zip | |
(menu-bar-update-buffers): Call copy-sequence so "Buffers" won't be pure.
| -rw-r--r-- | lisp/menu-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 7db5f96e6d7..e45d6926d70 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -1557,7 +1557,8 @@ Buffers menu is regenerated." | |||
| 1557 | 1557 | ||
| 1558 | (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu))) | 1558 | (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu))) |
| 1559 | (define-key (current-global-map) [menu-bar buffer] | 1559 | (define-key (current-global-map) [menu-bar buffer] |
| 1560 | (cons "Buffers" buffers-menu))))) | 1560 | ;; Call copy-sequence so the string is not pure. |
| 1561 | (cons (copy-sequence "Buffers") buffers-menu))))) | ||
| 1561 | 1562 | ||
| 1562 | (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers) | 1563 | (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers) |
| 1563 | 1564 | ||