Article View: gnu.emacs.bug
Article #815insert-buffer
From: Francesco Potorti`
Date: Sat, 03 Oct 1992 15:05
Date: Sat, 03 Oct 1992 15:05
22 lines
1342 bytes
1342 bytes
I believe I saw this patch earlier on this list, but I couldn't trace
it, so I rewrote it myself. If it will prove to do its job without
any side effects, it would be nice to see it incorporated in emacs
18.59 (if it isn't already).
--- /local/lib/emacs/lisp/simple.el Sun Dec 1 04:50:54 1991
+++ /users/pot/emacs/simple.el Sat Oct 3 13:50:43 1992
@@ -654,7 +654,9 @@
"Insert after point the contents of BUFFER.
Puts mark after the inserted text.
BUFFER may be a buffer or a buffer name."
- (interactive "*bInsert buffer: ")
+ (interactive
+ (list (progn (barf-if-buffer-read-only)
+ (read-buffer "Insert buffer: " (other-buffer) t))))
(or (bufferp buffer)
(setq buffer (get-buffer buffer)))
(let (start end newmark)
Francesco Potorti` | pot@cnuce.cnr.IT (Internet)
| 39369::pot (DECnet)
| (39)(50)593203 (voice)
Technical Details
Message-ID:
<m0mb9At-0001EIC@fly.cnuce.cnr.IT>Path:
arc1-ca.pugleaf.net!sparky!uunet!convex!darwin.sura.net!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!fly.cnuce.cnr.it!potShow Full Headers
Complete Article Headers
Newsgroups: gnu.emacs.bug Path: arc1-ca.pugleaf.net!sparky!uunet!convex!darwin.sura.net!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!fly.cnuce.cnr.it!pot From: pot@fly.cnuce.cnr.it (Francesco Potorti`) Subject: insert-buffer Message-ID: <m0mb9At-0001EIC@fly.cnuce.cnr.IT> Sender: gnulists@ai.mit.edu Reply-To: pot@cnuce.cnr.it Organization: GNUs Not Usenet Distribution: gnu Date: Sat, 3 Oct 1992 15:05:00 GMT Approved: bug-gnu-emacs@prep.ai.mit.edu Lines: 23