* term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is

read only.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e44ebd5fbc927e89c03532e117c4121d1c0e0fd..07c2f08e138d69b47121439c234644f692fd6660 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-14  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is
+       read only.
+
 2006-08-13  Romain Francoise  <romain@orebokech.com>
 
        * cus-theme.el (customize-create-theme)

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index af45c7c4270777b94717ae9ab96792a4ed8df814..38add1538aaebd7f920064f5bec70b9f159f6e1a 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2513,8 +2513,9 @@ order until succeed.")
     (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)