Mercurial > hg > xemacs-beta

comparison lisp/modes/vrml-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children cca96a509cfe
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
589 ;; FIXME doesn't actually return t. See last case. 589 ;; FIXME doesn't actually return t. See last case.
590 (defun vrml-real-comment-p () 590 (defun vrml-real-comment-p ()
591 "Return t if point is just after the `#' beginning a real comment. 591 "Return t if point is just after the `#' beginning a real comment.
592 Does not check to see if previous char is actually `#'. 592 Does not check to see if previous char is actually `#'.
593 A real comment is either at the beginning of the buffer, 593 A real comment is either at the beginning of the buffer,
594 preceeded only by whitespace on the line, or has a preceeding 594 preceded only by whitespace on the line, or has a preceding
595 semicolon, opening brace, or opening bracket on the same line." 595 semicolon, opening brace, or opening bracket on the same line."
596 (save-excursion 596 (save-excursion
597 (backward-char) 597 (backward-char)
598 (vrml-real-command-p))) 598 (vrml-real-command-p)))
599 599