Show
Ignore:
Timestamp:
08/18/06 08:35:31 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/newcomment.el

    r4079 r4148  
    600600                        ;; There is a comment and it's in the range: bingo. 
    601601                        (setq indent other)))))))) 
     602        ;; Update INDENT to leave at least one space 
     603        ;; after other nonwhite text on the line. 
     604        (save-excursion 
     605          (skip-chars-backward " \t")  
     606          (unless (bolp) 
     607            (setq indent (max indent (1+ (current-column)))))) 
     608        ;; If that's different from comment's current position, change it. 
    602609        (unless (= (current-column) indent) 
    603           ;; If that's different from current, change it. 
    604610          (delete-region (point) (progn (skip-chars-backward " \t") (point))) 
    605           (indent-to (if (bolp) indent 
    606                        (max indent (1+ (current-column))))))) 
     611          (indent-to indent))) 
    607612      (goto-char cpos) 
    608613      (set-marker cpos nil))))