comparison lisp/progmodes/icon.el @ 2307:10e417efb12a

Added or corrected Commentary sections
author Eric S. Raymond <esr@snark.thyrsus.com>
date Mon, 22 Mar 1993 03:27:18 +0000
parents 213978acbc1e
children 2e089bdec449
comparison
equal deleted inserted replaced
2306:59c8668f70c7 2307:10e417efb12a
22 ;; along with GNU Emacs; see the file COPYING. If not, write to 22 ;; along with GNU Emacs; see the file COPYING. If not, write to
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; A major mode for editing the Icon programming language.
28 ;;
27 ;; Note: use 29 ;; Note: use
28 ;; (autoload 'icon-mode "icon" nil t) 30 ;; (autoload 'icon-mode "icon" nil t)
29 ;; (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist)) 31 ;; (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist))
30 ;; if not permanently installed in your emacs 32 ;; if not permanently installed in your emacs
31 33
144 (setq comment-end "") 146 (setq comment-end "")
145 (make-local-variable 'comment-column) 147 (make-local-variable 'comment-column)
146 (setq comment-column 32) 148 (setq comment-column 32)
147 (make-local-variable 'comment-start-skip) 149 (make-local-variable 'comment-start-skip)
148 (setq comment-start-skip "# *") 150 (setq comment-start-skip "# *")
149 (make-local-variable 'comment-indent-hook) 151 (make-local-variable 'comment-indent-function)
150 (setq comment-indent-hook 'icon-comment-indent) 152 (setq comment-indent-function 'icon-comment-indent)
151 (run-hooks 'icon-mode-hook)) 153 (run-hooks 'icon-mode-hook))
152 154
153 ;; This is used by indent-for-comment to decide how much to 155 ;; This is used by indent-for-comment to decide how much to
154 ;; indent a comment in Icon code based on its context. 156 ;; indent a comment in Icon code based on its context.
155 (defun icon-comment-indent () 157 (defun icon-comment-indent ()