Commit 2308f447 authored by Daniel Pfeiffer's avatar Daniel Pfeiffer
Browse files

comment-beginning: doc-fix and don't choke on unset comment-end-skip when at beginning of comment

parent 972a542d
2004-10-03 Daniel Pfeiffer <occitan@esperanto.org>
* newcomment.el (comment-beginning): Doc fix and don't choke on
unset `comment-end-skip' when at beginning of comment
2004-10-02 Dan Nicolaescu <dann@ics.uci.edu>
* term.el (term-adjust-current-row-cache): Don't allow the current
......@@ -5,9 +10,9 @@
(term-emulate-terminal): Fix insert mode. Handle tab insertion at
the end of the line. Fix scroll down. Add comments.
(term-handle-ansi-escape): Don't exceed terminal width when moving
right.
right.
(term-scroll-region): Move the cursor after setting the scroll
region.
region.
2004-10-01 Luc Teirlinck <teirllm@auburn.edu>
......
......@@ -423,7 +423,7 @@ and raises an error or returns nil if NOERROR is non-nil."
(defun comment-beginning ()
"Find the beginning of the enclosing comment.
Returns nil if not inside a comment, else moves point and returns
the same as `comment-search-forward'."
the same as `comment-search-backward'."
;; HACK ATTACK!
;; We should really test `in-string-p' but that can be expensive.
(unless (eq (get-text-property (point) 'face) 'font-lock-string-face)
......@@ -435,7 +435,7 @@ the same as `comment-search-forward'."
(and
;; For modes where comment-start and comment-end are the same,
;; the search above may have found a `ce' rather than a `cs'.
(or (not (looking-at comment-end-skip))
(or (if comment-end-skip (not (looking-at comment-end-skip)))
;; Maybe font-lock knows that it's a `cs'?
(eq (get-text-property (match-end 0) 'face)
'font-lock-comment-face)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment