Mercurial > emacs
comparison lisp/progmodes/icon.el @ 12910:8aa95606db04
Define user options with defvar, not defconst.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 21 Aug 1995 14:30:34 +0000 |
| parents | 7ad2cc4e9963 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 12909:0e165bcd43a2 | 12910:8aa95606db04 |
|---|---|
| 1 ;;; icon.el --- mode for editing Icon code | 1 ;;; icon.el --- mode for editing Icon code |
| 2 | 2 |
| 3 ;; Copyright (C) 1989 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1989 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Chris Smith <convex!csmith> | 5 ;; Author: Chris Smith <csmith@convex.com> |
| 6 ;; Created: 15 Feb 89 | 6 ;; Created: 15 Feb 89 |
| 7 ;; Keywords: languages | 7 ;; Keywords: languages |
| 8 | 8 |
| 9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
| 10 | 10 |
| 66 (modify-syntax-entry ?> "." icon-mode-syntax-table) | 66 (modify-syntax-entry ?> "." icon-mode-syntax-table) |
| 67 (modify-syntax-entry ?& "." icon-mode-syntax-table) | 67 (modify-syntax-entry ?& "." icon-mode-syntax-table) |
| 68 (modify-syntax-entry ?| "." icon-mode-syntax-table) | 68 (modify-syntax-entry ?| "." icon-mode-syntax-table) |
| 69 (modify-syntax-entry ?\' "\"" icon-mode-syntax-table)) | 69 (modify-syntax-entry ?\' "\"" icon-mode-syntax-table)) |
| 70 | 70 |
| 71 (defconst icon-indent-level 4 | 71 (defvar icon-indent-level 4 |
| 72 "*Indentation of Icon statements with respect to containing block.") | 72 "*Indentation of Icon statements with respect to containing block.") |
| 73 (defconst icon-brace-imaginary-offset 0 | 73 (defvar icon-brace-imaginary-offset 0 |
| 74 "*Imagined indentation of a Icon open brace that actually follows a statement.") | 74 "*Imagined indentation of a Icon open brace that actually follows a statement.") |
| 75 (defconst icon-brace-offset 0 | 75 (defvar icon-brace-offset 0 |
| 76 "*Extra indentation for braces, compared with other text in same context.") | 76 "*Extra indentation for braces, compared with other text in same context.") |
| 77 (defconst icon-continued-statement-offset 4 | 77 (defvar icon-continued-statement-offset 4 |
| 78 "*Extra indent for lines not starting new statements.") | 78 "*Extra indent for lines not starting new statements.") |
| 79 (defconst icon-continued-brace-offset 0 | 79 (defvar icon-continued-brace-offset 0 |
| 80 "*Extra indent for substatements that start with open-braces. | 80 "*Extra indent for substatements that start with open-braces. |
| 81 This is in addition to icon-continued-statement-offset.") | 81 This is in addition to icon-continued-statement-offset.") |
| 82 | 82 |
| 83 (defconst icon-auto-newline nil | 83 (defvar icon-auto-newline nil |
| 84 "*Non-nil means automatically newline before and after braces | 84 "*Non-nil means automatically newline before and after braces |
| 85 inserted in Icon code.") | 85 inserted in Icon code.") |
| 86 | 86 |
| 87 (defconst icon-tab-always-indent t | 87 (defvar icon-tab-always-indent t |
| 88 "*Non-nil means TAB in Icon mode should always reindent the current line, | 88 "*Non-nil means TAB in Icon mode should always reindent the current line, |
| 89 regardless of where in the line point is when the TAB command is used.") | 89 regardless of where in the line point is when the TAB command is used.") |
| 90 | 90 |
| 91 ;;;###autoload | 91 ;;;###autoload |
| 92 (defun icon-mode () | 92 (defun icon-mode () |