Mercurial > hg > xemacs-beta
comparison lisp/modes/vrml-mode.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:35 +0200 |
| parents | 376386a54a3c |
| children | 0293115a14e9 |
comparison
equal
deleted
inserted
replaced
| 1:c0c6a60d29db | 2:ac2d302a0011 |
|---|---|
| 64 4. Move forward to end of line, indenting if necessary. | 64 4. Move forward to end of line, indenting if necessary. |
| 65 5. Create an empty comment. | 65 5. Create an empty comment. |
| 66 6. Move backward to start of comment, indenting if necessary.") | 66 6. Move backward to start of comment, indenting if necessary.") |
| 67 | 67 |
| 68 (defvar vrml-use-hairy-comment-detector t | 68 (defvar vrml-use-hairy-comment-detector t |
| 69 "*If not `nil', the the more complicated, but slower, comment | 69 "*If not `nil', then the more complicated, but slower, comment |
| 70 detecting function is used.") | 70 detecting function is used.") |
| 71 | 71 |
| 72 (defvar vrml-mode-abbrev-table nil | 72 (defvar vrml-mode-abbrev-table nil |
| 73 "Abbrev table used while in VRML mode.") | 73 "Abbrev table used while in VRML mode.") |
| 74 (define-abbrev-table 'vrml-mode-abbrev-table ()) | 74 (define-abbrev-table 'vrml-mode-abbrev-table ()) |
| 441 (skip-chars-backward " \t\n") | 441 (skip-chars-backward " \t\n") |
| 442 (forward-char -8) | 442 (forward-char -8) |
| 443 (looking-at "children"))))) | 443 (looking-at "children"))))) |
| 444 (progn | 444 (progn |
| 445 ;; Line is continuation line, or the sexp opener | 445 ;; Line is continuation line, or the sexp opener |
| 446 ;; is not a curly brace, or we are are looking at | 446 ;; is not a curly brace, or we are looking at |
| 447 ;; an `expr' expression (which must be split | 447 ;; an `expr' expression (which must be split |
| 448 ;; specially). So indentation is column of first | 448 ;; specially). So indentation is column of first |
| 449 ;; good spot after sexp opener. If there is no | 449 ;; good spot after sexp opener. If there is no |
| 450 ;; nonempty line before the indentation point, we | 450 ;; nonempty line before the indentation point, we |
| 451 ;; use the column of the character after the sexp | 451 ;; use the column of the character after the sexp |