Mercurial > hg > xemacs-beta

diff lisp/minibuf.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 41ff10fd062f
children d44af0c54775
line wrap: on
line diff
--- a/lisp/minibuf.el	Mon Aug 13 10:06:48 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 10:07:35 2007 +0200
@@ -285,6 +285,10 @@
     ;(if (fboundp 'unlock-buffer) (unlock-buffer))
     (kill-all-local-variables)
     (setq buffer-read-only nil)
+    ;; don't let read only text yanked into the minibuffer
+    ;; permanently wedge it.
+    (make-local-variable 'inhibit-read-only)
+    (setq inhibit-read-only t)
     (erase-buffer)
     ;(setq default-directory nil)
     (setq buffer-file-name nil)