[Top][All Lists]
[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
- [Emacs-diffs] Changes to emacs/lisp/newcomment.el,
Juanma Barranquero <=