emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

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