From: David Kågedal <davidk@lysator.liu.se>
Date: Mon, 27 Jul 2009 14:27:47 +0000 (+0200)
Subject: stgit.el: Remove the unused allow-file parameter to stgit-patch-at-point
X-Git-Tag: v0.15-rc2~11^2~70
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/735cb7ec0baa1c1b9a5c2a875e0026e4f8d91d11

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

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