comparison lisp/modes/lisp-mode.el @ 161:28f395d8dc7a r20-3b7

Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 43dd3413c7c7
children 15872534500d
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
200 () 200 ()
201 (setq shared-lisp-mode-map (make-sparse-keymap)) 201 (setq shared-lisp-mode-map (make-sparse-keymap))
202 ;; XEmacs changes 202 ;; XEmacs changes
203 (set-keymap-name shared-lisp-mode-map 'shared-lisp-mode-map) 203 (set-keymap-name shared-lisp-mode-map 'shared-lisp-mode-map)
204 (define-key shared-lisp-mode-map "\M-;" 'lisp-indent-for-comment) 204 (define-key shared-lisp-mode-map "\M-;" 'lisp-indent-for-comment)
205 ;; GDF - don't rebind the DEL key
206 ;; (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify)
207
208 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp)) 205 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp))
209 206
210 (defvar emacs-lisp-mode-map () 207 (defvar emacs-lisp-mode-map ()
211 "Keymap for Emacs Lisp mode. 208 "Keymap for Emacs Lisp mode.
212 All commands in `shared-lisp-mode-map' are inherited by this map.") 209 All commands in `shared-lisp-mode-map' are inherited by this map.")
711 (put 'while 'lisp-indent-function 1) 708 (put 'while 'lisp-indent-function 1)
712 (put 'if 'lisp-indent-function 2) 709 (put 'if 'lisp-indent-function 2)
713 (put 'catch 'lisp-indent-function 1) 710 (put 'catch 'lisp-indent-function 1)
714 (put 'condition-case 'lisp-indent-function 2) 711 (put 'condition-case 'lisp-indent-function 2)
715 (put 'unwind-protect 'lisp-indent-function 1) 712 (put 'unwind-protect 'lisp-indent-function 1)
713 (put 'save-current-buffer 'lisp-indent-function 0)
714 (put 'with-current-buffer 'lisp-indent-function 1)
715 (put 'with-temp-file 'lisp-indent-function 1)
716 (put 'with-output-to-string 'lisp-indent-function 0)
716 (put 'with-output-to-temp-buffer 'lisp-indent-function 1) 717 (put 'with-output-to-temp-buffer 'lisp-indent-function 1)
717 718
718 (defun indent-sexp (&optional endpos) 719 (defun indent-sexp (&optional endpos)
719 "Indent each line of the list starting just after point. 720 "Indent each line of the list starting just after point.
720 If optional arg ENDPOS is given, indent each line, stopping when 721 If optional arg ENDPOS is given, indent each line, stopping when