Mercurial > hg > xemacs-beta

comparison lisp/modes/vrml-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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