stgit.el: Remove the unused allow-file parameter to stgit-patch-at-point

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 3ebbffb6bb862488ce430c25c3a40f96296807f3..c4bb7328858abf0711e9da2cc9147de2888cf3da 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -594,14 +594,10 @@ (defun stgit-clear-marks ()
   "Unmark all patches."
   (setq stgit-marked-patches '()))
 
   "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.
   "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)
   (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"))))
 
       (when cause-error
         (error "No patch on this line"))))