Mercurial > hg > xemacs-beta

comparison lisp/modes/vrml-mode.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 360340f9fd5f
children 1856695b1fa9
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
42 42
43 ;; 43 ;;
44 ;; User variables. 44 ;; User variables.
45 ;; 45 ;;
46 46
47 (defvar vrml-indent-level 3 47 (defgroup vrml nil
48 "*Indentation of VRML statements with respect to containing block.") 48 "VRML Language"
49 49 :group 'languages)
50 (defvar vrml-auto-newline nil 50
51 (defgroup vrml-mode nil
52 "VRML mode customization"
53 :group 'vrml
54 :prefix "vrml-")
55
56
57 (defcustom vrml-indent-level 3
58 "*Indentation of VRML statements with respect to containing block."
59 :type 'integer
60 :group 'vrml-mode)
61
62 (defcustom vrml-auto-newline nil
51 "*Non-nil means automatically newline before and after braces 63 "*Non-nil means automatically newline before and after braces
52 inserted in VRML code.") 64 inserted in VRML code."
53 65 :type 'boolean
54 (defvar vrml-tab-always-indent t 66 :group 'vrml-mode)
67
68 (defcustom vrml-tab-always-indent t
55 "*Control effect of TAB key. 69 "*Control effect of TAB key.
56 If t (the default), always indent current line. 70 If t (the default), always indent current line.
57 If nil and point is not in the indentation area at the beginning of 71 If nil and point is not in the indentation area at the beginning of
58 the line, a TAB is inserted. 72 the line, a TAB is inserted.
59 Other values cause the first possible action from the following list 73 Other values cause the first possible action from the following list
62 1. Move from beginning of line to correct indentation. 76 1. Move from beginning of line to correct indentation.
63 2. Delete an empty comment. 77 2. Delete an empty comment.
64 3. Move forward to start of comment, indenting if necessary. 78 3. Move forward to start of comment, indenting if necessary.
65 4. Move forward to end of line, indenting if necessary. 79 4. Move forward to end of line, indenting if necessary.
66 5. Create an empty comment. 80 5. Create an empty comment.
67 6. Move backward to start of comment, indenting if necessary.") 81 6. Move backward to start of comment, indenting if necessary."
68 82 :type '(choice (const :tag "on" t)
69 (defvar vrml-use-hairy-comment-detector t 83 (const :tag "off" nil)
84 (const :tag "The Works" other))
85 :group 'vrml-mode)
86
87 (defcustom vrml-use-hairy-comment-detector t
70 "*If not `nil', then the more complicated, but slower, comment 88 "*If not `nil', then the more complicated, but slower, comment
71 detecting function is used.") 89 detecting function is used."
90 :type 'boolean
91 :group 'vrml-mode)
72 92
73 (defvar vrml-mode-abbrev-table nil 93 (defvar vrml-mode-abbrev-table nil
74 "Abbrev table used while in VRML mode.") 94 "Abbrev table used while in VRML mode.")
75 (define-abbrev-table 'vrml-mode-abbrev-table ()) 95 (define-abbrev-table 'vrml-mode-abbrev-table ())
76 96
113 (modify-syntax-entry ?> "_" vrml-mode-syntax-table) 133 (modify-syntax-entry ?> "_" vrml-mode-syntax-table)
114 (modify-syntax-entry ?| "_" vrml-mode-syntax-table) 134 (modify-syntax-entry ?| "_" vrml-mode-syntax-table)
115 (modify-syntax-entry ?+ "." vrml-mode-syntax-table) 135 (modify-syntax-entry ?+ "." vrml-mode-syntax-table)
116 (modify-syntax-entry ?\' "\"" vrml-mode-syntax-table)) 136 (modify-syntax-entry ?\' "\"" vrml-mode-syntax-table))
117 137
118 (defvar vrml-mode-hook nil 138 (defcustom vrml-mode-hook nil
119 "Hook run on entry to VRML mode.") 139 "Hook run on entry to VRML mode."
140 :type 'hook
141 :group 'vrml-mode)
120 142
121 (defvar vrml-keyword-list 143 (defvar vrml-keyword-list
122 '( 144 '(
123 ; shape nodes: 145 ; shape nodes:
124 "AsciiText" "Cone" "Cube" "Cylinder" "IndexedFaceSet" "IndexedLineSet" 146 "AsciiText" "Cone" "Cube" "Cylinder" "IndexedFaceSet" "IndexedLineSet"