Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 41ff10fd062f
children 0e522484dd2a
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
751 (put 'with-temp-buffer 'lisp-indent-function 0) 751 (put 'with-temp-buffer 'lisp-indent-function 0)
752 (put 'with-output-to-string 'lisp-indent-function 0) 752 (put 'with-output-to-string 'lisp-indent-function 0)
753 (put 'with-output-to-temp-buffer 'lisp-indent-function 1) 753 (put 'with-output-to-temp-buffer 'lisp-indent-function 1)
754 (put 'display-message 'lisp-indent-function 1) 754 (put 'display-message 'lisp-indent-function 1)
755 (put 'display-warning 'lisp-indent-function 1) 755 (put 'display-warning 'lisp-indent-function 1)
756 (put 'lmessage 'lisp-indent-function 2)
757 (put 'lwarn 'lisp-indent-function 2)
756 (put 'global-set-key 'lisp-indent-function 1) 758 (put 'global-set-key 'lisp-indent-function 1)
757 759
758 (defun indent-sexp (&optional endpos) 760 (defun indent-sexp (&optional endpos)
759 "Indent each line of the list starting just after point. 761 "Indent each line of the list starting just after point.
760 If optional arg ENDPOS is given, indent each line, stopping when 762 If optional arg ENDPOS is given, indent each line, stopping when