X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/blobdiff_plain/533d85c2f663a7e89816b23c627a118866ab00fb..735cb7ec0baa1c1b9a5c2a875e0026e4f8d91d11:/contrib/stgit.el diff --git a/contrib/stgit.el b/contrib/stgit.el index 3ebbffb..c4bb732 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -594,14 +594,10 @@ (defun stgit-clear-marks () "Unmark all patches." (setq stgit-marked-patches '())) -(defun stgit-patch-at-point (&optional cause-error allow-file) +(defun stgit-patch-at-point (&optional cause-error) "Return the patch name on the current line as a symbol. -If CAUSE-ERROR is not nil, signal an error if none found. -If ALLOW-FILE is not nil, also handle when point is on a file of -a patch." +If CAUSE-ERROR is not nil, signal an error if none found." (or (get-text-property (point) 'stgit-patchsym) - (and allow-file - (get-text-property (point) 'stgit-file-patchsym)) (when cause-error (error "No patch on this line"))))