From 369422051239c7ac9fc48ee42f898e41a77c7561 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Dj=C3=A4rv?= <jan.h.d@swipnet.se>
Date: Mon, 14 Aug 2006 09:00:36 +0000
Subject: * term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is read
 only.

---
 lisp/term/x-win.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lisp/term')

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index af45c7c4270..38add1538aa 100644
--- 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)
-- 
cgit v1.2.1