Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 25109:ee107cab4019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Dave Love <fx@gnu.org>
date Fri, 30 Jul 1999 00:50:59 +0000
parents 2aa414a532f2
children 9a7891b32d1a
comparison
equal deleted inserted replaced
25108:ab359f81e2cc 25109:ee107cab4019
384 (list beg end standard-output 384 (list beg end standard-output
385 `(lambda (ignore) 385 `(lambda (ignore)
386 ;; Skipping to the end of the specified region 386 ;; Skipping to the end of the specified region
387 ;; will make eval-region return. 387 ;; will make eval-region return.
388 (goto-char ,end) 388 (goto-char ,end)
389 ,form))))) 389 ',form)))))
390 ;; The result of evaluation has been put onto VALUES. So return it. 390 ;; The result of evaluation has been put onto VALUES. So return it.
391 (car values)) 391 (car values))
392 392
393 (defun lisp-comment-indent () 393 (defun lisp-comment-indent ()
394 (if (looking-at "\\s<\\s<\\s<") 394 (if (looking-at "\\s<\\s<\\s<")