emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/newcomment.el


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/newcomment.el
Date: Tue, 04 Feb 2003 06:49:40 -0500

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.55 emacs/lisp/newcomment.el:1.56
*** emacs/lisp/newcomment.el:1.55       Mon Nov 11 19:10:51 2002
--- emacs/lisp/newcomment.el    Tue Feb  4 06:49:38 2003
***************
*** 262,268 ****
                     (if (and comment-quote-nested (<= (length ce) 1)) "" "+")
                     (regexp-quote (substring ce 1))
                     "\\)"))))))
!  
  (defun comment-quote-re (str unp)
    (concat (regexp-quote (substring str 0 1))
          "\\\\" (if unp "+" "*")
--- 262,268 ----
                     (if (and comment-quote-nested (<= (length ce) 1)) "" "+")
                     (regexp-quote (substring ce 1))
                     "\\)"))))))
! 
  (defun comment-quote-re (str unp)
    (concat (regexp-quote (substring str 0 1))
          "\\\\" (if unp "+" "*")
***************
*** 789,795 ****
      (unless block (setq cce nil))
      ;; Continuation defaults to the same as CS and CE.
      (unless ccs (setq ccs cs cce ce))
!     
      (save-excursion
        (goto-char end)
        ;; If the end is not at the end of a line and the comment-end
--- 789,795 ----
      (unless block (setq cce nil))
      ;; Continuation defaults to the same as CS and CE.
      (unless ccs (setq ccs cs cce ce))
! 
      (save-excursion
        (goto-char end)
        ;; If the end is not at the end of a line and the comment-end
***************
*** 811,817 ****
                (end-of-line)
                (setq max-indent (max max-indent (current-column)))
                (not (or (eobp) (progn (forward-line) nil)))))
!         
          ;; Inserting ccs can change max-indent by (1- tab-width).
          (setq max-indent
                (+ max-indent (max (length cs) (length ccs)) tab-width -1))
--- 811,817 ----
                (end-of-line)
                (setq max-indent (max max-indent (current-column)))
                (not (or (eobp) (progn (forward-line) nil)))))
! 
          ;; Inserting ccs can change max-indent by (1- tab-width).
          (setq max-indent
                (+ max-indent (max (length cs) (length ccs)) tab-width -1))
***************
*** 824,830 ****
                    cs ce ccs cce min-indent max-indent block)))
              (setq cs (car csce))
              (setq ce (cdr csce))))
!         
          (goto-char (point-min))
          ;; Loop over all lines from BEG to END.
          (while
--- 824,830 ----
                    cs ce ccs cce min-indent max-indent block)))
              (setq cs (car csce))
              (setq ce (cdr csce))))
! 
          (goto-char (point-min))
          ;; Loop over all lines from BEG to END.
          (while




reply via email to

[Prev in Thread] Current Thread [Next in Thread]