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 |
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) |
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) |