# HG changeset patch # User Glenn Morris # Date 1289288517 28800 # Node ID d30a1f654ca555fd160d14197f2bd76eba9c14d4 # Parent 2135a94a07739729cc650f3fe58fef9f61c869f4 * lisp/progmodes/tcl.el (tcl-hairy-scan-for-comment): Doc fix. diff -r 2135a94a0773 -r d30a1f654ca5 lisp/ChangeLog --- a/lisp/ChangeLog Mon Nov 08 20:39:11 2010 -0800 +++ b/lisp/ChangeLog Mon Nov 08 23:41:57 2010 -0800 @@ -1,3 +1,7 @@ +2010-11-09 Glenn Morris + + * progmodes/tcl.el (tcl-hairy-scan-for-comment): Doc fix. + 2010-11-08 Stefan Monnier * minibuffer.el (minibuffer-completion-help): Specify the end of the diff -r 2135a94a0773 -r d30a1f654ca5 lisp/progmodes/tcl.el --- a/lisp/progmodes/tcl.el Mon Nov 08 20:39:11 2010 -0800 +++ b/lisp/progmodes/tcl.el Mon Nov 08 23:41:57 2010 -0800 @@ -606,15 +606,11 @@ (set (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) "[$!]") (set (make-local-variable 'dabbrev-abbrev-char-regexp) "\\sw\\|\\s_") - ;; This can only be set to t in Emacs 19 and XEmacs. - ;; Emacs 18 and Epoch lose. (set (make-local-variable 'parse-sexp-ignore-comments) t) ;; XEmacs has defun-prompt-regexp, but I don't believe ;; that it works for end-of-defun -- only for ;; beginning-of-defun. (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp) - ;; The following doesn't work in Lucid Emacs 19.6, but maybe - ;; it will appear in later versions. (set (make-local-variable 'add-log-current-defun-function) 'tcl-add-log-defun) @@ -1200,11 +1196,7 @@ "Determine if point is in a comment. Returns a list of the form `(FLAG . STATE)'. STATE can be used as input to future invocations. FLAG is nil if not in comment, -t otherwise. If in comment, leaves point at beginning of comment. - -This function does not work in Emacs 18. -See also `tcl-simple-scan-for-comment', a -simpler version that is often right, and works in Emacs 18." +t otherwise. If in comment, leaves point at beginning of comment." (let ((bol (save-excursion (goto-char end) (beginning-of-line)