Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
365 "Like `eval' except that it transforms defvars to defconsts." 365 "Like `eval' except that it transforms defvars to defconsts."
366 ;; by Stig@hackvan.com 366 ;; by Stig@hackvan.com
367 (if (and (consp expr) 367 (if (and (consp expr)
368 (eq (car expr) 'defvar) 368 (eq (car expr) 'defvar)
369 (> (length expr) 2)) 369 (> (length expr) 2))
370 (progn (eval (cons 'defconst (cdr expr))) 370 (eval (cons 'defconst (cdr expr)))
371 (message "defvar treated as defconst")
372 (sit-for 1)
373 (message ""))
374 (eval expr))) 371 (eval expr)))
375 372
376 (defun eval-last-sexp (eval-last-sexp-arg-internal) 373 (defun eval-last-sexp (eval-last-sexp-arg-internal)
377 "Evaluate sexp before point; print value in minibuffer. 374 "Evaluate sexp before point; print value in minibuffer.
378 With argument, print output into current buffer." 375 With argument, print output into current buffer."