*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06406e15f0087d6c276aab98e9730742115086fa..c5bbf08564fd107865e8eeb05b9830d91e3b7574 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (blink-matching-open):
+       * paren.el (show-paren-function): Allow new paren-class info.
+
 2005-11-20  Chong Yidong  <cyd@stupidchicken.com>
 
        * faces.el: Revert 2005-11-17 change.  :ignore-defface is now

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 938cd5fe141cc899e4ec381c729ea2ccb32a350f..7716a70435948e60c53316206390d1a1ab96176b 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -478,19 +478,22 @@ Point is assumed to be just at the end of a comment."
   (if (bolp)
       ;; comment-end = ""
       (progn (backward-char) (skip-syntax-backward " "))
-    (let ((end (point)))
-      (beginning-of-line)
-      (save-restriction
-       (narrow-to-region (point) end)
-       (if (re-search-forward (concat comment-end-skip "\\'") nil t)
-           (goto-char (match-beginning 0))
-         ;; comment-end-skip not found probably because it was not set right.
-         ;; Since \\s> should catch the single-char case, we'll blindly
-         ;; assume we're at the end of a two-char comment-end.
-         (goto-char (point-max))
-         (backward-char 2)
-         (skip-chars-backward (string (char-after)))
-         (skip-syntax-backward " "))))))
+    (cond
+     ((save-restriction
+        (beginning-of-line)
+        (narrow-to-region (point) end)
+        (re-search-forward (concat comment-end-skip "\\'") nil t))
+      (goto-char (match-beginning 0)))
+     ;; comment-end-skip not found.  Maybe we're at EOB which implicitly
+     ;; closes the comment.
+     ((eobp) (skip-syntax-backward " "))
+     (t
+      ;; else comment-end-skip was not found probably because it was not
+      ;; set right.  Since \\s> should catch the single-char case, we'll
+      ;; blindly assume we're at the end of a two-char comment-end.
+      (backward-char 2)
+      (skip-chars-backward (string (char-after)))
+      (skip-syntax-backward " ")))))
 
 ;;;;
 ;;;; Commands