Mercurial > hg > xemacs-beta
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 |