[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/longlines.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/longlines.el |
Date: |
Fri, 18 Nov 2005 14:40:36 -0500 |
Index: emacs/lisp/longlines.el
diff -c emacs/lisp/longlines.el:1.14 emacs/lisp/longlines.el:1.15
*** emacs/lisp/longlines.el:1.14 Thu Oct 27 01:36:31 2005
--- emacs/lisp/longlines.el Fri Nov 18 19:40:35 2005
***************
*** 137,143 ****
(add-hook 'after-change-functions
'longlines-after-change-function nil t)
(add-hook 'post-command-hook
! 'longlines-post-command-function nil t)))
;; Turn off longlines mode
(setq buffer-file-format (delete 'longlines buffer-file-format))
(if longlines-showing
--- 137,157 ----
(add-hook 'after-change-functions
'longlines-after-change-function nil t)
(add-hook 'post-command-hook
! 'longlines-post-command-function nil t))
!
! ;; Hacks to make longlines play nice with various modes.
! (cond ((eq major-mode 'mail-mode)
! (or mail-citation-hook
! (add-hook 'mail-citation-hook 'mail-indent-citation nil t))
! (add-hook 'mail-citation-hook 'longlines-decode-region nil t))
! ((eq major-mode 'message-mode)
! (make-local-variable 'message-indent-citation-function)
! (if (not (listp message-indent-citation-function))
! (setq message-indent-citation-function
! (list message-indent-citation-function)))
! (add-to-list 'message-indent-citation-function
! 'longlines-decode-region t)))
! )
;; Turn off longlines mode
(setq buffer-file-format (delete 'longlines buffer-file-format))
(if longlines-showing
***************
*** 298,305 ****
(1+ (current-column)))
space))))))
! (defun longlines-decode-region (beg end)
! "Turn all newlines between BEG and END into hard newlines."
(save-excursion
(goto-char (min beg end))
(while (search-forward "\n" (max beg end) t)
--- 312,322 ----
(1+ (current-column)))
space))))))
! (defun longlines-decode-region (&optional beg end)
! "Turn all newlines between BEG and END into hard newlines.
! If BEG and END are nil, the point and mark are used."
! (if (null beg) (setq beg (point)))
! (if (null end) (setq end (mark t)))
(save-excursion
(goto-char (min beg end))
(while (search-forward "\n" (max beg end) t)
- [Emacs-diffs] Changes to emacs/lisp/longlines.el,
Chong Yidong <=
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/18
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/19
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/19
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/19
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/20
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, David Kastrup, 2005/11/25
- [Emacs-diffs] Changes to emacs/lisp/longlines.el, Chong Yidong, 2005/11/29