Source

xemacs-devel / find-func.el

Diff from to

File find-func.el

 in `load-path'."
   (if (not function)
       (error "You didn't specify a function"))
-  (and (subrp (symbol-function function))
-       (error "%s is a primitive function" function))
   (let ((def (symbol-function function))
 	aliases)
     (while (symbolp def)
 				  function (symbol-name def)))))
       (setq function (symbol-function function)
 	    def (symbol-function function)))
+    (and (subrp (symbol-function function))
+         (if aliases
+             (error "%s which is a primitive function" aliases)
+       (error "%s is a primitive function" function)))
     (if aliases
 	(message aliases))
     (let ((library