From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 8 Nov 2004 16:42:25 +0000 (+0000)
Subject: (filesets-spawn-external-viewer, filesets-run-cmd):
X-Git-Tag: ttn-vms-21-2-B4~4103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4331c31e9598335f377133749f5cb239daa972e5;p=emacs.git

(filesets-spawn-external-viewer, filesets-run-cmd):
Don't use beginning-of-buffer.
(filesets-cmd-show-result): Use with-no-warnings.
---

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 74a2a72bb34..8599cb01d93 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1356,7 +1356,7 @@ Use the viewer defined in EV-ENTRY (a valid element of
 		  (run-hooks 'oh))
 		(set-buffer-modified-p nil)
 		(setq buffer-read-only t)
-		(beginning-of-buffer))
+		(goto-char (point-min)))
 	    (when oh
 	      (run-hooks 'oh))))
       (filesets-error 'error
@@ -1593,7 +1593,8 @@ SAVE-FUNCTION takes no argument, but works on the current buffer."
 (defun filesets-cmd-show-result (cmd output)
   "Show OUTPUT of CMD (a shell command)."
   (pop-to-buffer "*Filesets: Shell Command Output*")
-  (end-of-buffer)
+  (with-no-warnings
+   (end-of-buffer))
   (insert "*** ")
   (insert cmd)
   (newline)
@@ -1638,7 +1639,7 @@ Replace <file-name> or <<file-name>> with filename."
 		(save-restriction
 		  (let ((buffer (filesets-find-file this)))
 		    (when buffer
-		      (beginning-of-buffer)
+		      (goto-char (point-min))
 		      (let ()
 			(cond
 			 ((stringp fn)