Mercurial > hg > xemacs-beta
comparison lisp/modes/tcl.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | ec9a17fef872 |
children | 360340f9fd5f |
comparison
equal
deleted
inserted
replaced
69:804d1389bcd6 | 70:131b0175ea99 |
---|---|
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 preceding line, like this: | 322 ;; of the preceeding 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 preceded only by whitespace on the line, or has a preceding | 1656 preceeded only by whitespace on the line, or has a preceeding |
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 |