Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 460:223736d75acb r21-2-45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-45
author cvs
date Mon, 13 Aug 2007 11:43:24 +0200
parents 1ccc32a20af4
children 7039e6323819
comparison
equal deleted inserted replaced
459:9d4fd877b885 460:223736d75acb
168 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table))) 168 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table)))
169 169
170 (if (not lisp-mode-syntax-table) 170 (if (not lisp-mode-syntax-table)
171 (progn (setq lisp-mode-syntax-table 171 (progn (setq lisp-mode-syntax-table
172 (copy-syntax-table emacs-lisp-mode-syntax-table)) 172 (copy-syntax-table emacs-lisp-mode-syntax-table))
173 (modify-syntax-entry ?\| "\" " lisp-mode-syntax-table)
174 (modify-syntax-entry ?\[ "_ " lisp-mode-syntax-table) 173 (modify-syntax-entry ?\[ "_ " lisp-mode-syntax-table)
175 ;; XEmacs changes 174 ;; XEmacs changes
176 (modify-syntax-entry ?\] "_ " lisp-mode-syntax-table) 175 (modify-syntax-entry ?\] "_ " lisp-mode-syntax-table)
177 ;; 176 (modify-syntax-entry ?# "' 58" lisp-mode-syntax-table)
178 ;; If emacs was compiled with NEW_SYNTAX, then do 177 (modify-syntax-entry ?| "\" 67" lisp-mode-syntax-table)))
179 ;; CL's #| |# block comments.
180 (if (= 8 (length (parse-partial-sexp (point) (point))))
181 (progn
182 (modify-syntax-entry ?# "' 58" lisp-mode-syntax-table)
183 (modify-syntax-entry ?| ". 67" lisp-mode-syntax-table))
184 ;; else, old style
185 (modify-syntax-entry ?\| "\" " lisp-mode-syntax-table))))
186 178
187 (define-abbrev-table 'lisp-mode-abbrev-table ()) 179 (define-abbrev-table 'lisp-mode-abbrev-table ())
188 180
189 (defvar lisp-imenu-generic-expression 181 (defvar lisp-imenu-generic-expression
190 '( 182 '(
800 (put 'flet 'lisp-indent-function 1) 792 (put 'flet 'lisp-indent-function 1)
801 (put 'while 'lisp-indent-function 1) 793 (put 'while 'lisp-indent-function 1)
802 (put 'if 'lisp-indent-function 2) 794 (put 'if 'lisp-indent-function 2)
803 (put 'catch 'lisp-indent-function 1) 795 (put 'catch 'lisp-indent-function 1)
804 (put 'condition-case 'lisp-indent-function 2) 796 (put 'condition-case 'lisp-indent-function 2)
797 (put 'handler-case 'lisp-indent-function 1)
798 (put 'handler-bind 'lisp-indent-function 1)
805 (put 'call-with-condition-handler 'lisp-indent-function 2) 799 (put 'call-with-condition-handler 'lisp-indent-function 2)
806 (put 'unwind-protect 'lisp-indent-function 1) 800 (put 'unwind-protect 'lisp-indent-function 1)
807 (put 'save-current-buffer 'lisp-indent-function 0) 801 (put 'save-current-buffer 'lisp-indent-function 0)
808 (put 'with-current-buffer 'lisp-indent-function 1) 802 (put 'with-current-buffer 'lisp-indent-function 1)
809 (put 'with-string-as-buffer-contents 'lisp-indent-function 1) 803 (put 'with-string-as-buffer-contents 'lisp-indent-function 1)
810 (put 'with-temp-file 'lisp-indent-function 1) 804 (put 'with-temp-file 'lisp-indent-function 1)
811 (put 'with-temp-buffer 'lisp-indent-function 0) 805 (put 'with-temp-buffer 'lisp-indent-function 0)
812 (put 'with-output-to-string 'lisp-indent-function 0) 806 (put 'with-output-to-string 'lisp-indent-function 0)
813 (put 'with-output-to-temp-buffer 'lisp-indent-function 1) 807 (put 'with-output-to-temp-buffer 'lisp-indent-function 1)
808 (put 'with-slots 'lisp-indent-function 2)
809 (put 'with-open-file 'lisp-indent-function 1)
810 (put 'with-open-stream 'lisp-indent-function 1)
814 (put 'eval-after-load 'lisp-indent-function 1) 811 (put 'eval-after-load 'lisp-indent-function 1)
815 (put 'display-message 'lisp-indent-function 1) 812 (put 'display-message 'lisp-indent-function 1)
816 (put 'display-warning 'lisp-indent-function 1) 813 (put 'display-warning 'lisp-indent-function 1)
817 (put 'lmessage 'lisp-indent-function 2) 814 (put 'lmessage 'lisp-indent-function 2)
818 (put 'lwarn 'lisp-indent-function 2) 815 (put 'lwarn 'lisp-indent-function 2)
819 (put 'global-set-key 'lisp-indent-function 1) 816 (put 'global-set-key 'lisp-indent-function 1)
817 (put 'print-unreadable-object 'lisp-indent-function 1)
820 818
821 (defun indent-sexp (&optional endpos) 819 (defun indent-sexp (&optional endpos)
822 "Indent each line of the list starting just after point. 820 "Indent each line of the list starting just after point.
823 If optional arg ENDPOS is given, indent each line, stopping when 821 If optional arg ENDPOS is given, indent each line, stopping when
824 ENDPOS is encountered." 822 ENDPOS is encountered."