branch: elpa/proof-general
commit 01aa3173419ea9349ae00d3bd2b14264dd6d6c47
Author: Hendrik Tews <[email protected]>
Commit: hendriktews <[email protected]>
Revert "(texi-docstring-magic-texi-for): Use `help-function-arglist`"
This reverts commit a63a9b13185b0a2f13eb417165708f9cf38cc827 because
it breaks CI.
---
lib/texi-docstring-magic.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lib/texi-docstring-magic.el b/lib/texi-docstring-magic.el
index 11f055f727..789770fb27 100644
--- a/lib/texi-docstring-magic.el
+++ b/lib/texi-docstring-magic.el
@@ -3,7 +3,7 @@
;; This file is part of Proof General.
;; Portions © Copyright 1994-2012 David Aspinall and University of Edinburgh
-;; Portions © Copyright 2003-2024 Free Software Foundation, Inc.
+;; Portions © Copyright 2003-2021 Free Software Foundation, Inc.
;; Portions © Copyright 2001-2017 Pierre Courtieu
;; Portions © Copyright 2010, 2016 Erik Martin-Dorel
;; Portions © Copyright 2011-2013, 2016-2017 Hendrik Tews
@@ -328,7 +328,10 @@ Markup as @code{stuff} or @lisp stuff @end Lisp."
(def (if (not (autoloadp def)) def
(autoload-do-load def function)))
(macrop (eq 'macro (car-safe def)))
- (argsyms (help-function-arglist def 'preserve-names))
+ (argsyms (cond ((eq (car-safe def) 'lambda)
+ (nth 1 def))
+ ((eq (car-safe def) 'closure)
+ (nth 2 def))))
(args (mapcar #'symbol-name argsyms)))
(cond
((commandp function)
