X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fhelp.el;h=eb7b1b6c835e16f5e6fa3c6c27d482a31c5c7772;hb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;hp=85906380c4ad22c8d1cd69d66c0b1d1763a86cef;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/help.el b/lisp/help.el
index 8590638..eb7b1b6 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -914,15 +914,11 @@ unless the function is autoloaded."
   :type 'boolean
   :group 'help-appearance)
 
-(defun describe-symbol-find-file (function)
-  (let ((files load-history)
-	file)
-    (while files
-      (if (memq function (cdr (car files)))
-	  (setq file (car (car files))
-		files nil))
-      (setq files (cdr files)))
-    file))
+(defun describe-symbol-find-file (symbol)
+  (loop for (file . load-data) in load-history
+    do (when (memq symbol load-data)
+	 (return file))))
+
 (define-obsolete-function-alias
   'describe-function-find-file
   'describe-symbol-find-file)
@@ -1378,10 +1374,6 @@ after the listing is made.)"
 	       (s (process-status p)))
 	  (setq tail (cdr tail))
 	  (princ (format "%-13s" (process-name p)))
-	  ;;(if (and (eq system-type 'vax-vms)
-	  ;;         (eq s 'signal)
-	  ;;        (< (process-exit-status p) NSIG))
-	  ;;    (princ (aref sys_errlist (process-exit-status p))))
 	  (princ s)
 	  (if (and (eq s 'exit) (/= (process-exit-status p) 0))
 	      (princ (format " %d" (process-exit-status p))))