Mercurial > hg > xemacs-beta

diff lisp/modes/lisp-mode.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 4103f0995bd7
line wrap: on
line diff
--- a/lisp/modes/lisp-mode.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/modes/lisp-mode.el	Mon Aug 13 08:46:56 2007 +0200
@@ -367,10 +367,7 @@
   (if (and (consp expr)
 	   (eq (car expr) 'defvar)
 	   (> (length expr) 2))
-      (progn (eval (cons 'defconst (cdr expr)))
-	     (message "defvar treated as defconst")
-	     (sit-for 1)
-	     (message ""))
+      (eval (cons 'defconst (cdr expr)))
     (eval expr)))
 
 (defun eval-last-sexp (eval-last-sexp-arg-internal)