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

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
317 ;; TODO: 317 ;; TODO:
318 ;; * make add-log-tcl-defun smarter. should notice if we are in the 318 ;; * make add-log-tcl-defun smarter. should notice if we are in the
319 ;; middle of a defun, or between defuns. should notice if point is 319 ;; middle of a defun, or between defuns. should notice if point is
320 ;; on first line of defun (or maybe even in comments before defun). 320 ;; on first line of defun (or maybe even in comments before defun).
321 ;; * Allow continuation lines to be indented under the first argument 321 ;; * Allow continuation lines to be indented under the first argument
322 ;; of the preceeding line, like this: 322 ;; of the preceding line, like this:
323 ;; [list something \ 323 ;; [list something \
324 ;; something-else] 324 ;; something-else]
325 ;; * There is a request that indentation work like this: 325 ;; * There is a request that indentation work like this:
326 ;; button .fred -label Fred \ 326 ;; button .fred -label Fred \
327 ;; -command {puts fred} 327 ;; -command {puts fred}
1651 ;; FIXME doesn't actually return t. See last case. 1651 ;; FIXME doesn't actually return t. See last case.
1652 (defun tcl-real-comment-p () 1652 (defun tcl-real-comment-p ()
1653 "Return t if point is just after the `#' beginning a real comment. 1653 "Return t if point is just after the `#' beginning a real comment.
1654 Does not check to see if previous char is actually `#'. 1654 Does not check to see if previous char is actually `#'.
1655 A real comment is either at the beginning of the buffer, 1655 A real comment is either at the beginning of the buffer,
1656 preceeded only by whitespace on the line, or has a preceeding 1656 preceded only by whitespace on the line, or has a preceding
1657 semicolon, opening brace, or opening bracket on the same line." 1657 semicolon, opening brace, or opening bracket on the same line."
1658 (save-excursion 1658 (save-excursion
1659 (backward-char) 1659 (backward-char)
1660 (tcl-real-command-p))) 1660 (tcl-real-command-p)))
1661 1661