emacs: lisp/progmodes/icon.el annotate

1 ;;; icon.el --- mode for editing Icon code

08eb386dd0f3 *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 210

2

845

213978acbc1e entered into RCS

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 811

213978acbc1e entered into RCS

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 811

4

12910

8aa95606db04 Define user options with defvar, not defconst.

Richard M. Stallman <rms@gnu.org>

parents: 10874

5 ;; Author: Chris Smith <csmith@convex.com>

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

6 ;; Created: 15 Feb 89

811

e694e0879463 *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 807

7 ;; Keywords: languages

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

8

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

9 ;; This file is part of GNU Emacs.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

10

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

11 ;; GNU Emacs is free software; you can redistribute it and/or modify

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

12 ;; it under the terms of the GNU General Public License as published by

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

13 ;; the Free Software Foundation; either version 2, or (at your option)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

14 ;; any later version.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

15

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

16 ;; GNU Emacs is distributed in the hope that it will be useful,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

19 ;; GNU General Public License for more details.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

20

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

21 ;; You should have received a copy of the GNU General Public License

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 12910

22 ;; along with GNU Emacs; see the file COPYING. If not, write to the

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 12910

23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 12910

24 ;; Boston, MA 02111-1307, USA.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

25

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

26 ;;; Commentary:

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

27

2307

10e417efb12a Added or corrected Commentary sections

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 845

28 ;; A major mode for editing the Icon programming language.

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

29

4f28bd14272c *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 660

30 ;;; Code:

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

31

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

32 (defvar icon-mode-abbrev-table nil

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

33 "Abbrev table in use in Icon-mode buffers.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

34 (define-abbrev-table 'icon-mode-abbrev-table ())

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

35

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

36 (defvar icon-mode-map ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

37 "Keymap used in Icon mode.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

38 (if icon-mode-map

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

39 ()

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

40 (let ((map (make-sparse-keymap "Icon")))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

41 (setq icon-mode-map (make-sparse-keymap))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

42 (define-key icon-mode-map "{" 'electric-icon-brace)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

43 (define-key icon-mode-map "}" 'electric-icon-brace)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

44 (define-key icon-mode-map "\e\C-h" 'mark-icon-function)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

45 (define-key icon-mode-map "\e\C-a" 'beginning-of-icon-defun)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

46 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

47 (define-key icon-mode-map "\e\C-q" 'indent-icon-exp)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

48 (define-key icon-mode-map "\177" 'backward-delete-char-untabify)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

49

32299

4888d3b1cf29 (icon-mode-map): Add name to menu-bar keymap.

Dave Love <fx@gnu.org>

parents: 32155

50 (define-key icon-mode-map [menu-bar] (make-sparse-keymap "Icon"))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

51 (define-key icon-mode-map [menu-bar icon]

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

52 (cons "Icon" map))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

53 (define-key map [beginning-of-icon-defun] '("Beginning of function" . beginning-of-icon-defun))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

54 (define-key map [end-of-icon-defun] '("End of function" . end-of-icon-defun))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

55 (define-key map [comment-region] '("Comment Out Region" . comment-region))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

56 (define-key map [indent-region] '("Indent Region" . indent-region))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

57 (define-key map [indent-line] '("Indent Line" . icon-indent-command))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

58 (put 'eval-region 'menu-enable 'mark-active)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

59 (put 'comment-region 'menu-enable 'mark-active)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

60 (put 'indent-region 'menu-enable 'mark-active)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

61

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

62 (defvar icon-mode-syntax-table nil

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

63 "Syntax table in use in Icon-mode buffers.")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

64

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

65 (if icon-mode-syntax-table

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

66 ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

67 (setq icon-mode-syntax-table (make-syntax-table))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

68 (modify-syntax-entry ?\\ "\\" icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

69 (modify-syntax-entry ?# "<" icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

70 (modify-syntax-entry ?\n ">" icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

71 (modify-syntax-entry ?$ "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

72 (modify-syntax-entry ?/ "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

73 (modify-syntax-entry ?* "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

74 (modify-syntax-entry ?+ "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

75 (modify-syntax-entry ?- "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

76 (modify-syntax-entry ?= "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

77 (modify-syntax-entry ?% "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

78 (modify-syntax-entry ?< "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

79 (modify-syntax-entry ?> "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

80 (modify-syntax-entry ?& "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

81 (modify-syntax-entry ?| "." icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

82 (modify-syntax-entry ?\' "\"" icon-mode-syntax-table))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

83

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

84 (defgroup icon nil

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

85 "Mode for editing Icon code."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

86 :group 'languages)

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

87

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

88 (defcustom icon-indent-level 4

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

89 "*Indentation of Icon statements with respect to containing block."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

90 :type 'integer

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

91 :group 'icon)

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

92

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

93 (defcustom icon-brace-imaginary-offset 0

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

94 "*Imagined indentation of a Icon open brace that actually follows a statement."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

95 :type 'integer

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

96 :group 'icon)

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

97

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

98 (defcustom icon-brace-offset 0

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

99 "*Extra indentation for braces, compared with other text in same context."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

100 :type 'integer

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

101 :group 'icon)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

102

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

103 (defcustom icon-continued-statement-offset 4

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

104 "*Extra indent for Icon lines not starting new statements."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

105 :type 'integer

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

106 :group 'icon)

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

107

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

108 (defcustom icon-continued-brace-offset 0

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

109 "*Extra indent for Icon substatements that start with open-braces.

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

110 This is in addition to `icon-continued-statement-offset'."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

111 :type 'integer

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

112 :group 'icon)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

113

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

114 (defcustom icon-auto-newline nil

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

115 "*Non-nil means automatically newline before and after braces Icon code.

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

116 This applies when braces are inserted."

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

117 :type 'boolean

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

118 :group 'icon)

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

119

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

120 (defcustom icon-tab-always-indent t

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

121 "*Non-nil means TAB in Icon mode should always reindent the current line.

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

122 It will then reindent, regardless of where in the line point is

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

123 when the TAB command is used."

19834

63f793f84d0f (icon-tab-always-indent): Fix customize type.

Richard M. Stallman <rms@gnu.org>

parents: 18381

124 :type 'boolean

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

125 :group 'icon)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

126

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

127 (defvar icon-imenu-generic-expression

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

128 '((nil "^[ \t]*procedure[ \t]+\$\\sw+\$[ \t]*(" 1))

3b746ca2bca9 Use defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17266

129 "Imenu expression for Icon mode. See `imenu-generic-expression'.")

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

130

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

131

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

132

9055

2e089bdec449 (icon-mode): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 2307

133 ;;;###autoload

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

134 (defun icon-mode ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

135 "Major mode for editing Icon code.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

136 Expression and list commands understand all Icon brackets.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

137 Tab indents for Icon code.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

138 Paragraphs are separated by blank lines only.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

139 Delete converts tabs to spaces as it moves back.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

140 \\{icon-mode-map}

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

141 Variables controlling indentation style:

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

142 icon-tab-always-indent

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

143 Non-nil means TAB in Icon mode should always reindent the current line,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

144 regardless of where in the line point is when the TAB command is used.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

145 icon-auto-newline

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

146 Non-nil means automatically newline before and after braces

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

147 inserted in Icon code.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

148 icon-indent-level

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

149 Indentation of Icon statements within surrounding block.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

150 The surrounding block's indentation is the indentation

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

151 of the line on which the open-brace appears.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

152 icon-continued-statement-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

153 Extra indentation given to a substatement, such as the

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

154 then-clause of an if or body of a while.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

155 icon-continued-brace-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

156 Extra indentation given to a brace that starts a substatement.

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

157 This is in addition to `icon-continued-statement-offset'.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

158 icon-brace-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

159 Extra indentation for line if it starts with an open brace.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

160 icon-brace-imaginary-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

161 An open brace following other text is treated as if it were

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

162 this far to the right of the start of its line.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

163

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

164 Turning on Icon mode calls the value of the variable `icon-mode-hook'

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

165 with no args, if that value is non-nil."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

166 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

167 (kill-all-local-variables)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

168 (use-local-map icon-mode-map)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

169 (setq major-mode 'icon-mode)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

170 (setq mode-name "Icon")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

171 (setq local-abbrev-table icon-mode-abbrev-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

172 (set-syntax-table icon-mode-syntax-table)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

173 (make-local-variable 'paragraph-start)

10874

7ad2cc4e9963 (icon-mode): Remove ^ from paragraph-start & paragraph-separate.

Boris Goldowsky <boris@gnu.org>

parents: 9055

174 (setq paragraph-start (concat "$\\|" page-delimiter))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

175 (make-local-variable 'paragraph-separate)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

176 (setq paragraph-separate paragraph-start)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

177 (make-local-variable 'indent-line-function)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

178 (setq indent-line-function 'icon-indent-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

179 (make-local-variable 'require-final-newline)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

180 (setq require-final-newline t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

181 (make-local-variable 'comment-start)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

182 (setq comment-start "# ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

183 (make-local-variable 'comment-end)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

184 (setq comment-end "")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

185 (make-local-variable 'comment-start-skip)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

186 (setq comment-start-skip "# *")

2307

10e417efb12a Added or corrected Commentary sections

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 845

187 (make-local-variable 'comment-indent-function)

10e417efb12a Added or corrected Commentary sections

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 845

188 (setq comment-indent-function 'icon-comment-indent)

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

189 (set (make-local-variable 'indent-line-function) 'icon-indent-line)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

190 ;; font-lock support

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

191 (setq font-lock-defaults

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

192 '((icon-font-lock-keywords

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

193 icon-font-lock-keywords-1 icon-font-lock-keywords-2)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

194 nil nil ((?_ . "w")) beginning-of-defun

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

195 ;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP.

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

196 ;(font-lock-comment-start-regexp . "#")

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

197 (font-lock-mark-block-function . mark-defun)))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

198 ;; imenu support

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

199 (make-local-variable 'imenu-generic-expression)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

200 (setq imenu-generic-expression icon-imenu-generic-expression)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

201 ;; hideshow support

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

202 ;; we start from the assertion that `hs-special-modes-alist' is autoloaded.

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

203 (unless (assq 'icon-mode hs-special-modes-alist)

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

204 (setq hs-special-modes-alist

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

205 (cons '(icon-mode "\\<procedure\\>" "\\<end\\>" nil

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

206 icon-forward-sexp-function)

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

207 hs-special-modes-alist)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

208 (run-hooks 'icon-mode-hook))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

209

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

210 ;; This is used by indent-for-comment to decide how much to

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

211 ;; indent a comment in Icon code based on its context.

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

212 (defun icon-comment-indent ()

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

213 (if (looking-at "^#") 0 comment-column))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

214

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

215 (defun electric-icon-brace (arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

216 "Insert character and correct line's indentation."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

217 (interactive "P")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

218 (let (insertpos)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

219 (if (and (not arg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

220 (eolp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

221 (or (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

222 (skip-chars-backward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

223 (bolp))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

224 (if icon-auto-newline

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

225 (progn (icon-indent-line) (newline) t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

226 nil)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

227 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

228 (insert last-command-char)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

229 (icon-indent-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

230 (if icon-auto-newline

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

231 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

232 (newline)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

233 ;; (newline) may have done auto-fill

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

234 (setq insertpos (- (point) 2))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

235 (icon-indent-line)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

236 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

237 (if insertpos (goto-char (1+ insertpos)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

238 (delete-char -1))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

239 (if insertpos

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

240 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

241 (goto-char insertpos)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

242 (self-insert-command (prefix-numeric-value arg)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

243 (self-insert-command (prefix-numeric-value arg)))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

244

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

245 (defun icon-indent-command (&optional whole-exp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

246 (interactive "P")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

247 "Indent current line as Icon code, or in some cases insert a tab character.

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

248 If `icon-tab-always-indent' is non-nil (the default), always indent current

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

249 line. Otherwise, indent the current line only if point is at the left margin

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

250 or in the line's indentation; otherwise insert a tab.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

251

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

252 A numeric argument, regardless of its value, means indent rigidly all the

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

253 lines of the expression starting after point so that this line becomes

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

254 properly indented. The relative indentation among the lines of the

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

255 expression are preserved."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

256 (if whole-exp

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

257 ;; If arg, always indent this line as Icon

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

258 ;; and shift remaining lines of expression the same amount.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

259 (let ((shift-amt (icon-indent-line))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

260 beg end)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

261 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

262 (if icon-tab-always-indent

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

263 (beginning-of-line))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

264 (setq beg (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

265 (forward-sexp 1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

266 (setq end (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

267 (goto-char beg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

268 (forward-line 1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

269 (setq beg (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

270 (if (> end beg)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

271 (indent-code-rigidly beg end shift-amt "#")))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

272 (if (and (not icon-tab-always-indent)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

273 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

274 (skip-chars-backward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

275 (not (bolp))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

276 (insert-tab)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

277 (icon-indent-line))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

278

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

279 (defun icon-indent-line ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

280 "Indent current line as Icon code.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

281 Return the amount the indentation changed by."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

282 (let ((indent (calculate-icon-indent nil))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

283 beg shift-amt

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

284 (case-fold-search nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

285 (pos (- (point-max) (point))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

286 (beginning-of-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

287 (setq beg (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

288 (cond ((eq indent nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

289 (setq indent (current-indentation)))

30947

3e2633195694 (icon-indent-line)

Gerd Moellmann <gerd@gnu.org>

parents: 20953

290 ((looking-at "^#")

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

291 (setq indent 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

292 (t

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

293 (skip-chars-forward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

294 (if (listp indent) (setq indent (car indent)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

295 (cond ((and (looking-at "else\\b")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

296 (not (looking-at "else\\s_")))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

297 (setq indent (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

298 (icon-backward-to-start-of-if)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

299 (current-indentation))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

300 ((or (= (following-char) ?})

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

301 (looking-at "end\\b"))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

302 (setq indent (- indent icon-indent-level)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

303 ((= (following-char) ?{)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

304 (setq indent (+ indent icon-brace-offset))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

305 (skip-chars-forward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

306 (setq shift-amt (- indent (current-column)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

307 (if (zerop shift-amt)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

308 (if (> (- (point-max) pos) (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

309 (goto-char (- (point-max) pos)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

310 (delete-region beg (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

311 (indent-to indent)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

312 ;; If initial point was within line's indentation,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

313 ;; position after the indentation. Else stay at same point in text.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

314 (if (> (- (point-max) pos) (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

315 (goto-char (- (point-max) pos))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

316 shift-amt))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

317

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

318 (defun calculate-icon-indent (&optional parse-start)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

319 "Return appropriate indentation for current line as Icon code.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

320 In usual case returns an integer: the column to indent to.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

321 Returns nil if line starts inside a string, t if in a comment."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

322 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

323 (beginning-of-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

324 (let ((indent-point (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

325 (case-fold-search nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

326 state

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

327 containing-sexp

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

328 toplevel)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

329 (if parse-start

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

330 (goto-char parse-start)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

331 (setq toplevel (beginning-of-icon-defun)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

332 (while (< (point) indent-point)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

333 (setq parse-start (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

334 (setq state (parse-partial-sexp (point) indent-point 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

335 (setq containing-sexp (car (cdr state))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

336 (cond ((or (nth 3 state) (nth 4 state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

337 ;; return nil or t if should not change this line

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

338 (nth 4 state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

339 ((and containing-sexp

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

340 (/= (char-after containing-sexp) ?{))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

341 ;; line is expression, not statement:

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

342 ;; indent to just after the surrounding open.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

343 (goto-char (1+ containing-sexp))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

344 (current-column))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

345 (t

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

346 (if toplevel

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

347 ;; Outside any procedures.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

348 (progn (icon-backward-to-noncomment (point-min))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

349 (if (icon-is-continuation-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

350 icon-continued-statement-offset 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

351 ;; Statement level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

352 (if (null containing-sexp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

353 (progn (beginning-of-icon-defun)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

354 (setq containing-sexp (point))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

355 (goto-char indent-point)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

356 ;; Is it a continuation or a new statement?

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

357 ;; Find previous non-comment character.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

358 (icon-backward-to-noncomment containing-sexp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

359 ;; Now we get the answer.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

360 (if (icon-is-continuation-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

361 ;; This line is continuation of preceding line's statement;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

362 ;; indent icon-continued-statement-offset more than the

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

363 ;; first line of the statement.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

364 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

365 (icon-backward-to-start-of-continued-exp containing-sexp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

366 (+ icon-continued-statement-offset (current-column)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

367 (if (save-excursion (goto-char indent-point)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

368 (skip-chars-forward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

369 (eq (following-char) ?{))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

370 icon-continued-brace-offset 0)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

371 ;; This line starts a new statement.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

372 ;; Position following last unclosed open.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

373 (goto-char containing-sexp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

374 ;; Is line first statement after an open-brace?

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

375 (or

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

376 ;; If no, find that first statement and indent like it.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

377 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

378 (if (looking-at "procedure\\s ")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

379 (forward-sexp 3)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

380 (forward-char 1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

381 (while (progn (skip-chars-forward " \t\n")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

382 (looking-at "#"))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

383 ;; Skip over comments following openbrace.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

384 (forward-line 1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

385 ;; The first following code counts

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

386 ;; if it is before the line we want to indent.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

387 (and (< (point) indent-point)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

388 (current-column)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

389 ;; If no previous statement,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

390 ;; indent it relative to line brace is on.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

391 ;; For open brace in column zero, don't let statement

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

392 ;; start there too. If icon-indent-level is zero,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

393 ;; use icon-brace-offset + icon-continued-statement-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

394 ;; instead.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

395 ;; For open-braces not the first thing in a line,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

396 ;; add in icon-brace-imaginary-offset.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

397 (+ (if (and (bolp) (zerop icon-indent-level))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

398 (+ icon-brace-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

399 icon-continued-statement-offset)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

400 icon-indent-level)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

401 ;; Move back over whitespace before the openbrace.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

402 ;; If openbrace is not first nonwhite thing on the line,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

403 ;; add the icon-brace-imaginary-offset.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

404 (progn (skip-chars-backward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

405 (if (bolp) 0 icon-brace-imaginary-offset))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

406 ;; Get initial indentation of the line we are on.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

407 (current-indentation))))))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

408

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

409 ;; List of words to check for as the last thing on a line.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

410 ;; If cdr is t, next line is a continuation of the same statement,

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

411 ;; if cdr is nil, next line starts a new (possibly indented) statement.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

412

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

413 (defconst icon-resword-alist

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

414 '(("by" . t) ("case" . t) ("create") ("do") ("dynamic" . t) ("else")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

415 ("every" . t) ("if" . t) ("global" . t) ("initial" . t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

416 ("link" . t) ("local" . t) ("of") ("record" . t) ("repeat" . t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

417 ("static" . t) ("then") ("to" . t) ("until" . t) ("while" . t)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

418

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

419 (defun icon-is-continuation-line ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

420 (let* ((ch (preceding-char))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

421 (ch-syntax (char-syntax ch)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

422 (if (eq ch-syntax ?w)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

423 (assoc (buffer-substring

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

424 (progn (forward-word -1) (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

425 (progn (forward-word 1) (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

426 icon-resword-alist)

30947

3e2633195694 (icon-indent-line)

Gerd Moellmann <gerd@gnu.org>

parents: 20953

427 (not (memq ch '(0 ?\; ?\} ?\{ ?\) ?\] ?\" ?\' ?\# ?\, ?\. ?\n))))))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

428

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

429 (defun icon-backward-to-noncomment (lim)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

430 (let (opoint stop)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

431 (while (not stop)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

432 (skip-chars-backward " \t\n\f" lim)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

433 (setq opoint (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

434 (beginning-of-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

435 (if (and (nth 5 (parse-partial-sexp (point) opoint))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

436 (< lim (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

437 (search-backward "#")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

438 (setq stop t)))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

439

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

440 (defun icon-backward-to-start-of-continued-exp (lim)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

441 (if (memq (preceding-char) '(?\) ?\]))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

442 (forward-sexp -1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

443 (beginning-of-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

444 (skip-chars-forward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

445 (cond

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

446 ((<= (point) lim) (goto-char (1+ lim)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

447 ((not (icon-is-continued-line)) 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

448 ((and (eq (char-syntax (following-char)) ?w)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

449 (cdr

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

450 (assoc (buffer-substring (point)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

451 (save-excursion (forward-word 1) (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

452 icon-resword-alist))) 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

453 (t (end-of-line 0) (icon-backward-to-start-of-continued-exp lim))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

454

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

455 (defun icon-is-continued-line ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

456 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

457 (end-of-line 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

458 (icon-is-continuation-line)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

459

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

460 (defun icon-backward-to-start-of-if (&optional limit)

01cbfdd59f82 *** empty log message ***

Jim Blandy <jimb@redhat.com>

parents: 36

461 "Move to the start of the last \"unbalanced\" if."

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

462 (or limit (setq limit (save-excursion (beginning-of-icon-defun) (point))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

463 (let ((if-level 1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

464 (case-fold-search nil))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

465 (while (not (zerop if-level))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

466 (backward-sexp 1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

467 (cond ((looking-at "else\\b")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

468 (setq if-level (1+ if-level)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

469 ((looking-at "if\\b")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

470 (setq if-level (1- if-level)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

471 ((< (point) limit)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

472 (setq if-level 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

473 (goto-char limit))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

474

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

475 (defun mark-icon-function ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

476 "Put mark at end of Icon function, point at beginning."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

477 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

478 (push-mark (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

479 (end-of-icon-defun)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

480 (push-mark (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

481 (beginning-of-line 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

482 (beginning-of-icon-defun))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

483

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

484 (defun beginning-of-icon-defun ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

485 "Go to the start of the enclosing procedure; return t if at top level."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

486 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

487 (if (re-search-backward "^procedure\\s \\|^end[ \t\n]" (point-min) 'move)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

488 (looking-at "e")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

489 t))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

490

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

491 (defun end-of-icon-defun ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

492 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

493 (if (not (bobp)) (forward-char -1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

494 (re-search-forward "\$\\s \\|^\$end\$\\s \\|$\$" (point-max) 'move)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

495 (forward-word -1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

496 (forward-line 1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

497

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

498 (defun indent-icon-exp ()

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

499 "Indent each line of the Icon grouping following point."

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

500 (interactive)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

501 (let ((indent-stack (list nil))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

502 (contain-stack (list (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

503 (case-fold-search nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

504 restart outer-loop-done inner-loop-done state ostate

17974

b7df247f7487 (indent-icon-exp): Bind last-depth.

Richard M. Stallman <rms@gnu.org>

parents: 17969

505 this-indent last-sexp last-depth

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

506 at-else at-brace at-do

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

507 (opoint (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

508 (next-depth 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

509 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

510 (forward-sexp 1))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

511 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

512 (setq outer-loop-done nil)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

513 (while (and (not (eobp)) (not outer-loop-done))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

514 (setq last-depth next-depth)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

515 ;; Compute how depth changes over this line

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

516 ;; plus enough other lines to get to one that

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

517 ;; does not end inside a comment or string.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

518 ;; Meanwhile, do appropriate indentation on comment lines.

17974

b7df247f7487 (indent-icon-exp): Bind last-depth.

Richard M. Stallman <rms@gnu.org>

parents: 17969

519 (setq inner-loop-done nil)

b7df247f7487 (indent-icon-exp): Bind last-depth.

Richard M. Stallman <rms@gnu.org>

parents: 17969

520 (while (and (not inner-loop-done)

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

521 (not (and (eobp) (setq outer-loop-done t))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

522 (setq ostate state)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

523 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

524 nil nil state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

525 (setq next-depth (car state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

526 (if (and (car (cdr (cdr state)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

527 (>= (car (cdr (cdr state))) 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

528 (setq last-sexp (car (cdr (cdr state)))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

529 (if (or (nth 4 ostate))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

530 (icon-indent-line))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

531 (if (or (nth 3 state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

532 (forward-line 1)

17974

b7df247f7487 (indent-icon-exp): Bind last-depth.

Richard M. Stallman <rms@gnu.org>

parents: 17969

533 (setq inner-loop-done t)))

36

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

534 (if (<= next-depth 0)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

535 (setq outer-loop-done t))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

536 (if outer-loop-done

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

537 nil

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

538 (if (/= last-depth next-depth)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

539 (setq last-sexp nil))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

540 (while (> last-depth next-depth)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

541 (setq indent-stack (cdr indent-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

542 contain-stack (cdr contain-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

543 last-depth (1- last-depth)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

544 (while (< last-depth next-depth)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

545 (setq indent-stack (cons nil indent-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

546 contain-stack (cons nil contain-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

547 last-depth (1+ last-depth)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

548 (if (null (car contain-stack))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

549 (setcar contain-stack (or (car (cdr state))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

550 (save-excursion (forward-sexp -1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

551 (point)))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

552 (forward-line 1)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

553 (skip-chars-forward " \t")

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

554 (if (eolp)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

555 nil

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

556 (if (and (car indent-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

557 (>= (car indent-stack) 0))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

558 ;; Line is on an existing nesting level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

559 ;; Lines inside parens are handled specially.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

560 (if (/= (char-after (car contain-stack)) ?{)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

561 (setq this-indent (car indent-stack))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

562 ;; Line is at statement level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

563 ;; Is it a new statement? Is it an else?

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

564 ;; Find last non-comment character before this line

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

565 (save-excursion

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

566 (setq at-else (looking-at "else\\W"))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

567 (setq at-brace (= (following-char) ?{))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

568 (icon-backward-to-noncomment opoint)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

569 (if (icon-is-continuation-line)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

570 ;; Preceding line did not end in comma or semi;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

571 ;; indent this line icon-continued-statement-offset

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

572 ;; more than previous.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

573 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

574 (icon-backward-to-start-of-continued-exp (car contain-stack))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

575 (setq this-indent

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

576 (+ icon-continued-statement-offset (current-column)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

577 (if at-brace icon-continued-brace-offset 0))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

578 ;; Preceding line ended in comma or semi;

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

579 ;; use the standard indent for this level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

580 (if at-else

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

581 (progn (icon-backward-to-start-of-if opoint)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

582 (setq this-indent (current-indentation)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

583 (setq this-indent (car indent-stack))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

584 ;; Just started a new nesting level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

585 ;; Compute the standard indent for this level.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

586 (let ((val (calculate-icon-indent

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

587 (if (car indent-stack)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

588 (- (car indent-stack))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

589 (setcar indent-stack

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

590 (setq this-indent val))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

591 ;; Adjust line indentation according to its contents

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

592 (if (or (= (following-char) ?})

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

593 (looking-at "end\\b"))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

594 (setq this-indent (- this-indent icon-indent-level)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

595 (if (= (following-char) ?{)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

596 (setq this-indent (+ this-indent icon-brace-offset)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

597 ;; Put chosen indentation into effect.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

598 (or (= (current-column) this-indent)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

599 (progn

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

600 (delete-region (point) (progn (beginning-of-line) (point)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

601 (indent-to this-indent)))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

602 ;; Indent any comment following the text.

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

603 (or (looking-at comment-start-skip)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

604 (if (re-search-forward comment-start-skip (save-excursion (end-of-line) (point)) t)

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

605 (progn (indent-for-comment) (beginning-of-line))))))))))

9697c13298e5 Initial revision

Joseph Arceneaux <jla@gnu.org>

parents:

606

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

607 (defconst icon-font-lock-keywords-1

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

608 (eval-when-compile

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

609 (list

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

610 ;; Fontify procedure name definitions.

18281

ffc2fda197bc (icon-indent-line): A comment ends at the end of the

Richard M. Stallman <rms@gnu.org>

parents: 18272

611 '("^[ \t]*\$procedure\$\\>[ \t]*\$\\sw+\$?"

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

612 (1 font-lock-builtin-face) (2 font-lock-function-name-face nil t))))

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

613 "Subdued level highlighting for Icon mode.")

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

614

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

615 (defconst icon-font-lock-keywords-2

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

616 (append

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

617 icon-font-lock-keywords-1

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

618 (eval-when-compile

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

619 (list

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

620 ;; Fontify all type specifiers.

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

621 (cons

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

622 (regexp-opt '("null" "string" "co-expression" "table" "integer"

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

623 "cset" "set" "real" "file" "list") 'words)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

624 'font-lock-type-face)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

625 ;; Fontify all keywords.

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

626 ;;

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

627 (cons

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

628 (regexp-opt

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

629 '("break" "do" "next" "repeat" "to" "by" "else" "if" "not" "return"

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

630 "until" "case" "of" "while" "create" "every" "suspend" "default"

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

631 "fail" "record" "then") 'words)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

632 'font-lock-keyword-face)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

633 ;; "end" "initial"

5323492591dd (icon-mode-map): Don't rebind \t.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 32299

634 (cons (regexp-opt '("end" "initial") 'words)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

635 'font-lock-builtin-face)

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

636 ;; Fontify all system variables.

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

637 (cons

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

638 (regexp-opt

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

639 '("&allocated" "&ascii" "&clock" "&col" "&collections" "&column"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

640 "&control" "&cset" "&current" "&date" "&dateline" "&digits" "&dump"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

641 "&e" "&error" "&errornumber" "&errortext" "&errorvalue" "&errout"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

642 "&eventcode" "&eventsource" "&eventvalue" "&fail" "&features"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

643 "&file" "&host" "&input" "&interval" "&lcase" "&ldrag" "&letters"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

644 "&level" "&line" "&lpress" "&lrelease" "&main" "&mdrag" "&meta"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

645 "&mpress" "&mrelease" "&null" "&output" "&phi" "&pi" "&pos"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

646 "&progname" "&random" "&rdrag" "&regions" "&resize" "&row"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

647 "&rpress" "&rrelease" "&shift" "&source" "&storage" "&subject"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

648 "&time" "&trace" "&ucase" "&version" "&window" "&x" "&y") t)

20953

f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.

Simon Marshall <simon@gnu.org>

parents: 19834

649 'font-lock-constant-face)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

650 (cons ;; global local static declarations and link files

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

651 (concat

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

652 "^[ \t]*"

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

653 (regexp-opt '("global" "link" "local" "static") t)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

654 "\$\\sw+\\>\$*")

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

655 '((1 font-lock-builtin-face)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

656 (font-lock-match-c-style-declaration-item-and-skip-to-next

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

657 (goto-char (or (match-beginning 2) (match-end 1))) nil

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

658 (1 (if (match-beginning 2)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

659 font-lock-function-name-face

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

660 font-lock-variable-name-face)))))

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

661

18281

ffc2fda197bc (icon-indent-line): A comment ends at the end of the

Richard M. Stallman <rms@gnu.org>

parents: 18272

662 (cons ;; $define $elif $ifdef $ifndef $undef

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

663 (concat "^"

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

664 (regexp-opt'("$define" "$elif" "$ifdef" "$ifndef" "$undef") t)

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

665 "\\>[ \t]*\$[^ \t\n]+\$?")

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

666 '((1 font-lock-builtin-face)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

667 (4 font-lock-variable-name-face nil t)))

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

668 (cons ;; $dump $endif $else $include

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

669 (concat

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

670 "^" (regexp-opt'("$dump" "$endif" "$else" "$include") t) "\\>" )

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

671 'font-lock-builtin-face)

6da1b5250673 (icon-font-lock-keywords-2): Use regexp-opt for the regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17974

672 (cons ;; $warning $error

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

673 (concat "^" (regexp-opt '("$warning" "$error") t)

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

674 "\\>[ \t]*\$.+\$?")

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

675 '((1 font-lock-builtin-face) (3 font-lock-warning-face nil t))))))

aea95178357e (icon-imenu-generic-expression): Improved regexp.

Richard M. Stallman <rms@gnu.org>

parents: 18167

676 "Gaudy level highlighting for Icon mode.")

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

677

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

678 (defvar icon-font-lock-keywords icon-font-lock-keywords-1

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

679 "Default expressions to highlight in `icon-mode'.")

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

680

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

681 ;;;used by hs-minor-mode

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

682 (defun icon-forward-sexp-function (arg)

17969

fa550516120f (icon-mode): Adapt to new hideshow and improve regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17633

683 (if (< arg 0)

fa550516120f (icon-mode): Adapt to new hideshow and improve regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17633

684 (beginning-of-icon-defun)

fa550516120f (icon-mode): Adapt to new hideshow and improve regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17633

685 (end-of-icon-defun)

fa550516120f (icon-mode): Adapt to new hideshow and improve regexps.

Richard M. Stallman <rms@gnu.org>

parents: 17633

686 (forward-char -1)))

9ef8bf76c3c2 (icon-mode-map): Added menus.

Richard M. Stallman <rms@gnu.org>

parents: 14169

687

18381

d7ba4cdf0e37 Fix provide call.

Richard M. Stallman <rms@gnu.org>

parents: 18281

688 (provide 'icon)

d7ba4cdf0e37 Fix provide call.

Richard M. Stallman <rms@gnu.org>

parents: 18281

689

660

08eb386dd0f3 *** empty log message ***

Eric S. Raymond <esr@snark.thyrsus.com>

parents: 210