Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 262b8bb4a523
children 727739f917cb
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
33 ;; This mode is documented in the Emacs manual 33 ;; This mode is documented in the Emacs manual
34 34
35 ;; July/05/97 slb Converted to use easymenu. 35 ;; July/05/97 slb Converted to use easymenu.
36 36
37 ;;; Code: 37 ;;; Code:
38
39 (defgroup lisp nil
40 "Lisp support, including Emacs Lisp."
41 :group 'languages
42 :group 'development)
38 43
39 (defvar lisp-mode-syntax-table nil "") 44 (defvar lisp-mode-syntax-table nil "")
40 (defvar emacs-lisp-mode-syntax-table nil "") 45 (defvar emacs-lisp-mode-syntax-table nil "")
41 (defvar lisp-mode-abbrev-table nil "") 46 (defvar lisp-mode-abbrev-table nil "")
42 47
742 (put 'let* 'lisp-indent-function 1) 747 (put 'let* 'lisp-indent-function 1)
743 (put 'while 'lisp-indent-function 1) 748 (put 'while 'lisp-indent-function 1)
744 (put 'if 'lisp-indent-function 2) 749 (put 'if 'lisp-indent-function 2)
745 (put 'catch 'lisp-indent-function 1) 750 (put 'catch 'lisp-indent-function 1)
746 (put 'condition-case 'lisp-indent-function 2) 751 (put 'condition-case 'lisp-indent-function 2)
752 (put 'call-with-condition-handler 'lisp-indent-function 2)
747 (put 'unwind-protect 'lisp-indent-function 1) 753 (put 'unwind-protect 'lisp-indent-function 1)
748 (put 'save-current-buffer 'lisp-indent-function 0) 754 (put 'save-current-buffer 'lisp-indent-function 0)
749 (put 'with-current-buffer 'lisp-indent-function 1) 755 (put 'with-current-buffer 'lisp-indent-function 1)
750 (put 'with-temp-file 'lisp-indent-function 1) 756 (put 'with-temp-file 'lisp-indent-function 1)
751 (put 'with-temp-buffer 'lisp-indent-function 0) 757 (put 'with-temp-buffer 'lisp-indent-function 0)