Mercurial > hg > xemacs-beta

comparison lisp/modes/lisp-mode.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 489f57a838ef
children
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
747 (put 'with-current-buffer 'lisp-indent-function 1) 747 (put 'with-current-buffer 'lisp-indent-function 1)
748 (put 'with-temp-file 'lisp-indent-function 1) 748 (put 'with-temp-file 'lisp-indent-function 1)
749 (put 'with-temp-buffer 'lisp-indent-function 0) 749 (put 'with-temp-buffer 'lisp-indent-function 0)
750 (put 'with-output-to-string 'lisp-indent-function 0) 750 (put 'with-output-to-string 'lisp-indent-function 0)
751 (put 'with-output-to-temp-buffer 'lisp-indent-function 1) 751 (put 'with-output-to-temp-buffer 'lisp-indent-function 1)
752 (put 'display-message 'lisp-indent-function 1)
753 (put 'display-warning 'lisp-indent-function 1)
754 (put 'global-set-key 'lisp-indent-function 1)
752 755
753 (defun indent-sexp (&optional endpos) 756 (defun indent-sexp (&optional endpos)
754 "Indent each line of the list starting just after point. 757 "Indent each line of the list starting just after point.
755 If optional arg ENDPOS is given, indent each line, stopping when 758 If optional arg ENDPOS is given, indent each line, stopping when
756 ENDPOS is encountered." 759 ENDPOS is encountered."