Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
912 "*If non-nil, describe-function will show its arglist, 912 "*If non-nil, describe-function will show its arglist,
913 unless the function is autoloaded." 913 unless the function is autoloaded."
914 :type 'boolean 914 :type 'boolean
915 :group 'help-appearance) 915 :group 'help-appearance)
916 916
917 (defun describe-symbol-find-file (function) 917 (defun describe-symbol-find-file (symbol)
918 (let ((files load-history) 918 (loop for (file . load-data) in load-history
919 file) 919 do (when (memq symbol load-data)
920 (while files 920 (return file))))
921 (if (memq function (cdr (car files))) 921
922 (setq file (car (car files))
923 files nil))
924 (setq files (cdr files)))
925 file))
926 (define-obsolete-function-alias 922 (define-obsolete-function-alias
927 'describe-function-find-file 923 'describe-function-find-file
928 'describe-symbol-find-file) 924 'describe-symbol-find-file)
929 925
930 (defun describe-function (function) 926 (defun describe-function (function)
1376 (let* ((p (car tail)) 1372 (let* ((p (car tail))
1377 (pid (process-id p)) 1373 (pid (process-id p))
1378 (s (process-status p))) 1374 (s (process-status p)))
1379 (setq tail (cdr tail)) 1375 (setq tail (cdr tail))
1380 (princ (format "%-13s" (process-name p))) 1376 (princ (format "%-13s" (process-name p)))
1381 ;;(if (and (eq system-type 'vax-vms)
1382 ;; (eq s 'signal)
1383 ;; (< (process-exit-status p) NSIG))
1384 ;; (princ (aref sys_errlist (process-exit-status p))))
1385 (princ s) 1377 (princ s)
1386 (if (and (eq s 'exit) (/= (process-exit-status p) 0)) 1378 (if (and (eq s 'exit) (/= (process-exit-status p) 0))
1387 (princ (format " %d" (process-exit-status p)))) 1379 (princ (format " %d" (process-exit-status p))))
1388 (if (memq s '(signal exit closed)) 1380 (if (memq s '(signal exit closed))
1389 ;; Do delete-exited-processes' work 1381 ;; Do delete-exited-processes' work