From 369422051239c7ac9fc48ee42f898e41a77c7561 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Mon, 14 Aug 2006 09:00:36 +0000 Subject: [PATCH] * term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is read only. --- lisp/ChangeLog | 5 +++++ lisp/term/x-win.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e44ebd5fb..07c2f08e13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-08-14 Jan Dj,Ad(Brv + + * term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is + read only. + 2006-08-13 Romain Francoise * cus-theme.el (customize-create-theme) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index af45c7c427..38add1538a 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) -- 2.39.2