Show
Ignore:
Timestamp:
11/26/05 08:33:26 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/add-log.el

    r3939 r3988  
    552552        (insert (nth (random (length new-entries)) 
    553553                     new-entries) 
    554                 "\n\n") 
     554                hard-newline hard-newline) 
    555555        (forward-line -1))) 
    556556 
    …… 
    585585           (while (and (not (eobp)) (looking-at "^\\s *$")) 
    586586             (delete-region (point) (line-beginning-position 2))) 
    587            (insert-char ?\n 2) 
     587           (insert hard-newline hard-newline) 
    588588           (forward-line -2) 
    589589           (indent-relative-maybe)) 
    …… 
    594594           (while (and (not (eobp)) (looking-at "^\\s *$")) 
    595595             (delete-region (point) (line-beginning-position 2))) 
    596            (insert-char ?\n 3) 
     596           (insert hard-newline hard-newline hard-newline) 
    597597           (forward-line -2) 
    598598           (indent-to left-margin) 
    …… 
    861861                                   (point)))) 
    862862                       (if (looking-at "^[+-]") 
    863                            ;; C++. 
     863                           ;; Objective-C 
    864864                           (change-log-get-method-definition) 
    865865                         ;; Ordinary C function syntax. 
    …… 
    902902                               (setq middle (point)) 
    903903                               (forward-word -1) 
     904                               ;; Is this C++ method? 
     905                               (when (and (< 2 middle) 
     906                                          (string= (buffer-substring (- middle 2) 
     907                                                                     middle) 
     908                                                   "::")) 
     909                                 ;; Include "classname::". 
     910                                 (setq middle (point))) 
    904911                               ;; Ignore these subparts of a class decl 
    905912                               ;; and move back to the class name itself. 
    …… 
    10601067                             (or (<= (1- (point)) (point-min)) 
    10611068                                 (= ?\n (char-before (1- (point))))))) 
    1062               (insert "\n")) 
     1069              (insert hard-newline)) 
    10631070            ;; Move to the end of it to terminate outer loop. 
    10641071            (with-current-buffer other-buf