Function: filesets-cmd-shell-command

filesets-cmd-shell-command is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-cmd-shell-command TXT)

Documentation

Wrapper function for shell-command.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
(defun filesets-cmd-shell-command (txt)
  "Wrapper function for `shell-command'."
  (let ((ok (if (buffer-modified-p)
		(let ((ok (y-or-n-p "Save buffer? ")))
		  (when ok
		    (save-buffer))
		  ok)
	      t)))
    (when ok
      (let ((cmd (format txt (shell-quote-argument (buffer-file-name)))))
	(message "Filesets: %s" cmd)
	(filesets-cmd-show-result cmd
				  (shell-command-to-string cmd))))))