From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 14 Dec 2001 21:53:29 +0000 (+0000)
Subject: (comment-indent): Jump to the middle of empty comments.
X-Git-Tag: ttn-vms-21-2-B4~17726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a06b25076fe26a4975da834dd97912bc70c3c32;p=emacs.git

(comment-indent): Jump to the middle of empty comments.
---

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index ed67c12f7f0..c5d68494159 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -5,7 +5,7 @@
 ;; Author: code extracted from Emacs-20's simple.el
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
-;; Revision: $Id: newcomment.el,v 1.41 2001/11/29 21:29:36 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.42 2001/12/02 04:19:32 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -30,7 +30,6 @@
 
 ;;; Bugs:
 
-;; - comment-indent on /*  */ jumps to /*  ><*/ instead of /* >< */.
 ;; - nested comments in sgml-mode are not properly quoted.
 ;; - single-char nestable comment-start can only do the "\\s<+" stuff
 ;;   if the corresponding closing marker happens to be right.
@@ -450,7 +449,15 @@ If CONTINUE is non-nil, use the `comment-continue' markers if any."
 	   (begpos (comment-search-forward eolpos t))
 	   cpos indent)
       ;; An existing comment?
-      (if begpos (setq cpos (point-marker))
+      (if begpos
+	  (progn
+	    (if (and (not (looking-at "[\t\n ]"))
+		     (looking-at comment-end-skip))
+		;; The comment is empty and we have skipped all its space
+		;; and landed right before the comment-ender:
+		;; Go back to the middle of the space.
+		(forward-char (/ (skip-chars-backward " \t") -2)))
+	    (setq cpos (point-marker)))
 	  ;; If none, insert one.
 	  (save-excursion
 	    ;; Some comment-indent-function insist on not moving comments that