comparison lisp/hyper-apropos.el @ 251:677f6a0ee643 r20-5b24

Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 41f2f0e326e9
children 70ad99077275
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
710 (bytecode . "compiled Lisp ") 710 (bytecode . "compiled Lisp ")
711 (autoload . "autoloaded Lisp ") 711 (autoload . "autoloaded Lisp ")
712 (lambda . "Lisp ")))) 712 (lambda . "Lisp "))))
713 desc 713 desc
714 (case symtype 714 (case symtype
715 ((autoload) (format ", (autoloaded from \"%s\")" 715 ((autoload) (format ",\n(autoloaded from \"%s\")"
716 (nth 1 newsym))) 716 (nth 1 newsym)))
717 ((bytecode) (format ", (loaded from \"%s\")" 717 ((bytecode) (format ",\n(loaded from \"%s\")"
718 (symbol-file symbol))))) 718 (symbol-file symbol)))))
719 local (current-local-map) 719 local (current-local-map)
720 global (current-global-map) 720 global (current-global-map)
721 obsolete (get symbol 'byte-obsolete-info) 721 obsolete (get symbol 'byte-obsolete-info)
722 doc (or (documentation symbol) "function not documented")) 722 doc (or (documentation symbol) "function not documented"))