Mercurial > hg > xemacs-beta

comparison lisp/modes/lisp-mode.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 360340f9fd5f
children 25f70ba0133c
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
405 (let ((standard-output (if eval-defun-arg-internal (current-buffer) t)) 405 (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
406 (form (save-excursion 406 (form (save-excursion
407 (end-of-defun) 407 (end-of-defun)
408 (beginning-of-defun) 408 (beginning-of-defun)
409 (read (current-buffer))))) 409 (read (current-buffer)))))
410 (if (and (eq (car form) 'defvar) 410 (cond ((and (eq (car form) 'defvar)
411 (cdr-safe (cdr-safe form))) 411 (cdr-safe (cdr-safe form)))
412 (setq form (cons 'defconst (cdr form)))) 412 ;; Force variable to be bound.
413 (setq form (cons 'defconst (cdr form))))
414 ((and (eq (car form) 'defcustom)
415 (default-boundp (nth 1 form)))
416 ;; Force variable to be bound.
417 (set-default (nth 1 form) (eval (nth 2 form)))))
413 (prin1 (eval form)))) 418 (prin1 (eval form))))
414 419
415 (defun lisp-comment-indent () 420 (defun lisp-comment-indent ()
416 (if (looking-at "\\s<\\s<\\s<") 421 (if (looking-at "\\s<\\s<\\s<")
417 (current-column) 422 (current-column)