Mercurial > emacs
comparison lisp/progmodes/icon.el @ 17633:3b746ca2bca9
Use defcustom.
Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 May 1997 19:28:12 +0000 |
| parents | 9ef8bf76c3c2 |
| children | fa550516120f |
comparison
equal
deleted
inserted
replaced
| 17632:d2915156a803 | 17633:3b746ca2bca9 |
|---|---|
| 80 (modify-syntax-entry ?> "." icon-mode-syntax-table) | 80 (modify-syntax-entry ?> "." icon-mode-syntax-table) |
| 81 (modify-syntax-entry ?& "." icon-mode-syntax-table) | 81 (modify-syntax-entry ?& "." icon-mode-syntax-table) |
| 82 (modify-syntax-entry ?| "." icon-mode-syntax-table) | 82 (modify-syntax-entry ?| "." icon-mode-syntax-table) |
| 83 (modify-syntax-entry ?\' "\"" icon-mode-syntax-table)) | 83 (modify-syntax-entry ?\' "\"" icon-mode-syntax-table)) |
| 84 | 84 |
| 85 (defvar icon-indent-level 4 | 85 (defgroup icon nil |
| 86 "*Indentation of Icon statements with respect to containing block.") | 86 "Mode for editing Icon code." |
| 87 (defvar icon-brace-imaginary-offset 0 | 87 :group 'languages) |
| 88 "*Imagined indentation of a Icon open brace that actually follows a statement.") | 88 |
| 89 (defvar icon-brace-offset 0 | 89 (defcustom icon-indent-level 4 |
| 90 "*Extra indentation for braces, compared with other text in same context.") | 90 "*Indentation of Icon statements with respect to containing block." |
| 91 (defvar icon-continued-statement-offset 4 | 91 :type 'integer |
| 92 "*Extra indent for lines not starting new statements.") | 92 :group 'icon) |
| 93 (defvar icon-continued-brace-offset 0 | 93 |
| 94 "*Extra indent for substatements that start with open-braces. | 94 (defcustom icon-brace-imaginary-offset 0 |
| 95 This is in addition to icon-continued-statement-offset.") | 95 "*Imagined indentation of a Icon open brace that actually follows a statement." |
| 96 | 96 :type 'integer |
| 97 (defvar icon-auto-newline nil | 97 :group 'icon) |
| 98 "*Non-nil means automatically newline before and after braces | 98 |
| 99 inserted in Icon code.") | 99 (defcustom icon-brace-offset 0 |
| 100 | 100 "*Extra indentation for braces, compared with other text in same context." |
| 101 (defvar icon-tab-always-indent t | 101 :type 'integer |
| 102 "*Non-nil means TAB in Icon mode should always reindent the current line, | 102 :group 'icon) |
| 103 regardless of where in the line point is when the TAB command is used.") | 103 |
| 104 (defcustom icon-continued-statement-offset 4 | |
| 105 "*Extra indent for Icon lines not starting new statements." | |
| 106 :type 'integer | |
| 107 :group 'icon) | |
| 108 | |
| 109 (defcustom icon-continued-brace-offset 0 | |
| 110 "*Extra indent for Icon substatements that start with open-braces. | |
| 111 This is in addition to `icon-continued-statement-offset'." | |
| 112 :type 'integer | |
| 113 :group 'icon) | |
| 114 | |
| 115 (defcustom icon-auto-newline nil | |
| 116 "*Non-nil means automatically newline before and after braces Icon code. | |
| 117 This applies when braces are inserted." | |
| 118 :type 'boolean | |
| 119 :group 'icon) | |
| 120 | |
| 121 (defcustom icon-tab-always-indent t | |
| 122 "*Non-nil means TAB in Icon mode should always reindent the current line. | |
| 123 It will then reindent, regardless of where in the line point is | |
| 124 when the TAB command is used." | |
| 125 :type 'integer | |
| 126 :group 'icon) | |
| 104 | 127 |
| 105 (defvar icon-imenu-generic-expression | 128 (defvar icon-imenu-generic-expression |
| 106 '((nil "^[ \t]*procedure[ \t]*\\(\\sw+\\)[ \t]*(" 1)) | 129 '((nil "^[ \t]*procedure[ \t]*\\(\\sw+\\)[ \t]*(" 1)) |
| 107 "Imenu expression for Icon-mode. See `imenu-generic-expression'.") | 130 "Imenu expression for Icon mode. See `imenu-generic-expression'.") |
| 108 | 131 |
| 109 | 132 |
| 110 | 133 |
| 111 ;;;###autoload | 134 ;;;###autoload |
| 112 (defun icon-mode () | 135 (defun icon-mode () |