Mercurial > emacs

changeset 6951:a517c80bbe8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-command-filter): If point was at end, leave it at end.
author Richard M. Stallman <rms@gnu.org>
date Mon, 18 Apr 1994 22:41:49 +0000
parents 8924bd75c263
children 7a3b606e7d27
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Apr 18 22:40:07 1994 +0000
+++ b/lisp/simple.el	Mon Apr 18 22:41:49 1994 +0000
@@ -732,13 +732,15 @@
     (unwind-protect
 	(progn
 	  (set-buffer buffer)
-	  (setq opoint (point))
+	  (or (= (point) (point-max))
+	      (setq opoint (point)))
 	  (goto-char (point-max))
 	  (insert-before-markers string))
       ;; insert-before-markers moved this marker: set it back.
       (set-window-start window pos)
       ;; Finish our save-excursion.
-      (goto-char opoint)
+      (if opoint
+	  (goto-char opoint))
       (set-buffer obuf))))
 
 (defun shell-command-on-region (start end command &optional flag interactive)