[Emacs-diffs] Changes to emacs/lisp/filesets.el

[Richard M . Stallman]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.17 emacs/lisp/filesets.el:1.18
*** emacs/lisp/filesets.el:1.17 Thu Nov  4 09:59:56 2004
--- emacs/lisp/filesets.el      Mon Nov  8 16:42:25 2004
***************
*** 1356,1362 ****
                  (run-hooks 'oh))
                (set-buffer-modified-p nil)
                (setq buffer-read-only t)
!               (beginning-of-buffer))
            (when oh
              (run-hooks 'oh))))
        (filesets-error 'error
--- 1356,1362 ----
                  (run-hooks 'oh))
                (set-buffer-modified-p nil)
                (setq buffer-read-only t)
!               (goto-char (point-min)))
            (when oh
              (run-hooks 'oh))))
        (filesets-error 'error
***************
*** 1593,1599 ****
  (defun filesets-cmd-show-result (cmd output)
    "Show OUTPUT of CMD (a shell command)."
    (pop-to-buffer "*Filesets: Shell Command Output*")
!   (end-of-buffer)
    (insert "*** ")
    (insert cmd)
    (newline)
--- 1593,1600 ----
  (defun filesets-cmd-show-result (cmd output)
    "Show OUTPUT of CMD (a shell command)."
    (pop-to-buffer "*Filesets: Shell Command Output*")
!   (with-no-warnings
!    (end-of-buffer))
    (insert "*** ")
    (insert cmd)
    (newline)
***************
*** 1638,1644 ****
                (save-restriction
                  (let ((buffer (filesets-find-file this)))
                    (when buffer
!                     (beginning-of-buffer)
                      (let ()
                        (cond
                         ((stringp fn)
--- 1639,1645 ----
                (save-restriction
                  (let ((buffer (filesets-find-file this)))
                    (when buffer
!                     (goto-char (point-min))
                      (let ()
                        (cond
                         ((stringp fn)