Mercurial > hg > xemacs-beta

diff lisp/modes/lisp-mode.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 4be1180a9e89
line wrap: on
line diff
--- a/lisp/modes/lisp-mode.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/modes/lisp-mode.el	Mon Aug 13 09:13: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)