[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el |
Date: |
Wed, 10 Apr 2002 14:19:46 -0400 |
Index: emacs/lisp/textmodes/fill.el
diff -c emacs/lisp/textmodes/fill.el:1.138 emacs/lisp/textmodes/fill.el:1.139
*** emacs/lisp/textmodes/fill.el:1.138 Thu Dec 6 22:34:59 2001
--- emacs/lisp/textmodes/fill.el Wed Apr 10 14:19:44 2002
***************
*** 237,254 ****
;; just use it (this subsumes the 2 previous checks).
;; Used when first line is `/* ...' and second-line is
;; ` * ...'.
! (save-excursion
! (goto-char firstline)
! (looking-at
! (apply 'concat
! (mapcar (lambda (c)
! (if (memq c '(?\t ?\ ))
! ;; The number of chars might not
! ;; match up if there's a mix of
! ;; tabs and spaces.
! "\\([ \t]*\\|.\\)"
! (regexp-quote (string c))))
! second-line-prefix))))
second-line-prefix
;; Use the longest common substring of both prefixes,
--- 237,250 ----
;; just use it (this subsumes the 2 previous checks).
;; Used when first line is `/* ...' and second-line is
;; ` * ...'.
! (string-match
! (concat "\\`"
! (mapconcat
! (lambda (c) (regexp-quote (string c)))
! (replace-regexp-in-string "[ \t]+" ""
first-line-prefix)
! "?")
! "?\\'")
! (replace-regexp-in-string "[ \t]+" "" second-line-prefix))
second-line-prefix
;; Use the longest common substring of both prefixes,
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el, Stefan Monnier, 2002/04/10
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el, Stefan Monnier, 2002/04/11
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el, Stefan Monnier, 2002/04/11
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el, Stefan Monnier, 2002/04/11
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el, Stefan Monnier, 2002/04/29