Mercurial > hg > xemacs-beta

comparison lisp/modes/vrml-mode.el @ 142:1856695b1fa9 r20-2b5

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