;; eg when in a text file, (execute-shell-command-on-buffer "p4 edit %s") will check out the file in perforce
(defun execute-shell-command-on-buffer (shell-command-text)
  (interactive "MShell command:")
  (shell-command (format shell-command-text (shell-quote-argument buffer-file-name)))
  )