Mercurial > emacs

diff lisp/term/x-win.el @ 72388:956d4fe07987

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is read only.
author Jan Djärv <jan.h.d@swipnet.se>
date Mon, 14 Aug 2006 09:00:36 +0000
parents 9f431e2269e4
children ec8109b4dd1d
line wrap: on
line diff
--- a/lisp/term/x-win.el	Sun Aug 13 19:02:57 2006 +0000
+++ b/lisp/term/x-win.el	Mon Aug 14 09:00:36 2006 +0000
@@ -2513,8 +2513,9 @@
     (yank)))
 
 (define-key menu-bar-edit-menu [paste]
-  (cons "Paste" (cons "Paste text from clipboard or kill ring"
-		      'x-clipboard-yank)))
+  '(menu-item "Paste" x-clipboard-yank
+	      :enable (not buffer-read-only)
+	      :help "Paste (yank) text most recently cut/copied"))
 
 ;; Initiate drag and drop
 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)