Mercurial > hg > xemacs-beta

diff lisp/efs/efs-ovwrt.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 15872534500d
children
line wrap: on
line diff
--- a/lisp/efs/efs-ovwrt.el	Mon Aug 13 09:47:00 2007 +0200
+++ b/lisp/efs/efs-ovwrt.el	Mon Aug 13 09:47:52 2007 +0200
@@ -111,10 +111,10 @@
 				    (compiled-function-instructions nfun)
 				    (compiled-function-constants nfun)
 				    (compiled-function-stack-depth nfun)
-				    ndoc-str)
-			      (if (compiled-function-interactive nfun)
-				  (list (compiled-function-interactive nfun))
-				nil))))
+				    ndoc-str)))
+		   spec)
+	       (if (setq spec (compiled-function-interactive nfun))
+		   (setq new-code (nconc new-code (list (nth 1 spec)))))
 	       (fset new (apply 'make-byte-code new-code))))))))