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

[Miles Bader]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.15.4.1 emacs/lisp/filesets.el:1.15.4.2
*** emacs/lisp/filesets.el:1.15.4.1     Fri Apr 16 12:49:50 2004
--- emacs/lisp/filesets.el      Fri Nov 12 02:52:52 2004
***************
*** 295,301 ****
  (defgroup filesets nil
    "The fileset swapper."
    :prefix "filesets-"
!   :group 'convenience)
  
  (defcustom filesets-menu-name "Filesets"
    "*Filesets' menu name."
--- 295,302 ----
  (defgroup filesets nil
    "The fileset swapper."
    :prefix "filesets-"
!   :group 'convenience
!   :version "21.4")
  
  (defcustom filesets-menu-name "Filesets"
    "*Filesets' menu name."
***************
*** 1355,1361 ****
                  (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
***************
*** 1592,1598 ****
  (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)
***************
*** 1637,1643 ****
                (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)