/[emacs]/emacs/lisp/filesets.el
ViewVC logotype

Diff of /emacs/lisp/filesets.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by rms, Thu Nov 4 09:59:56 2004 UTC revision 1.18 by rms, Mon Nov 8 16:42:25 2004 UTC
# Line 1356  Use the viewer defined in EV-ENTRY (a va Line 1356  Use the viewer defined in EV-ENTRY (a va
1356                    (run-hooks 'oh))                    (run-hooks 'oh))
1357                  (set-buffer-modified-p nil)                  (set-buffer-modified-p nil)
1358                  (setq buffer-read-only t)                  (setq buffer-read-only t)
1359                  (beginning-of-buffer))                  (goto-char (point-min)))
1360              (when oh              (when oh
1361                (run-hooks 'oh))))                (run-hooks 'oh))))
1362        (filesets-error 'error        (filesets-error 'error
# Line 1593  SAVE-FUNCTION takes no argument, but wor Line 1593  SAVE-FUNCTION takes no argument, but wor
1593  (defun filesets-cmd-show-result (cmd output)  (defun filesets-cmd-show-result (cmd output)
1594    "Show OUTPUT of CMD (a shell command)."    "Show OUTPUT of CMD (a shell command)."
1595    (pop-to-buffer "*Filesets: Shell Command Output*")    (pop-to-buffer "*Filesets: Shell Command Output*")
1596    (end-of-buffer)    (with-no-warnings
1597       (end-of-buffer))
1598    (insert "*** ")    (insert "*** ")
1599    (insert cmd)    (insert cmd)
1600    (newline)    (newline)
# Line 1638  Replace <file-name> or <<file-name>> wit Line 1639  Replace <file-name> or <<file-name>> wit
1639                  (save-restriction                  (save-restriction
1640                    (let ((buffer (filesets-find-file this)))                    (let ((buffer (filesets-find-file this)))
1641                      (when buffer                      (when buffer
1642                        (beginning-of-buffer)                        (goto-char (point-min))
1643                        (let ()                        (let ()
1644                          (cond                          (cond
1645                           ((stringp fn)                           ((stringp fn)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26