/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by rost, Wed May 8 18:02:28 2002 UTC revision 1.9.2.1 by miles, Wed Jun 12 01:53:06 2002 UTC
# Line 1  Line 1 
1  ;;; help-fns.el --- Complex help functions  ;;; help-fns.el --- Complex help functions
2    
3  ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001  ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 165  and the file name is displayed in the ec Line 165  and the file name is displayed in the ec
165           file-name string           file-name string
166           (beg (if (commandp def) "an interactive " "a ")))           (beg (if (commandp def) "an interactive " "a ")))
167      (setq string      (setq string
168            (cond ((or (stringp def)            (cond ((or (stringp def) (vectorp def))
                      (vectorp def))  
169                   "a keyboard macro")                   "a keyboard macro")
170                  ((subrp def)                  ((subrp def)
171                   (if (eq 'unevalled (cdr (subr-arity def)))                   (if (eq 'unevalled (cdr (subr-arity def)))
# Line 182  and the file name is displayed in the ec Line 181  and the file name is displayed in the ec
181                   (concat beg "Lisp function"))                   (concat beg "Lisp function"))
182                  ((eq (car-safe def) 'macro)                  ((eq (car-safe def) 'macro)
183                   "a Lisp macro")                   "a Lisp macro")
184                    ((eq (car-safe def) 'closure)
185                     (concat beg "Lisp closure"))
186                  ((eq (car-safe def) 'autoload)                  ((eq (car-safe def) 'autoload)
187                   (setq file-name (nth 1 def))                   (setq file-name (nth 1 def))
188                   (format "%s autoloaded %s"                   (format "%s autoloaded %s"
# Line 257  and the file name is displayed in the ec Line 258  and the file name is displayed in the ec
258      ;; If definition is a macro, find the function inside it.      ;; If definition is a macro, find the function inside it.
259      (if (eq (car-safe def) 'macro)      (if (eq (car-safe def) 'macro)
260          (setq def (cdr def)))          (setq def (cdr def)))
261        ;; and do the same for interpreted closures
262        (if (eq (car-safe def) 'closure)
263            (setq def (cddr def)))
264      (let ((arglist (cond ((byte-code-function-p def)      (let ((arglist (cond ((byte-code-function-p def)
265                            (car (append def nil)))                            (car (append def nil)))
266                           ((eq (car-safe def) 'lambda)                           ((eq (car-safe def) 'lambda)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26