From 01aa3173419ea9349ae00d3bd2b14264dd6d6c47 Mon Sep 17 00:00:00 2001 From: Hendrik Tews Date: Thu, 28 Mar 2024 23:37:48 +0100 Subject: [PATCH] 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 11f055f72..789770fb2 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)