emacs-devel
[Top][All Lists]
Advanced

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

gnus-summary-toggle-truncation


From: Miles Bader
Subject: gnus-summary-toggle-truncation
Date: Wed, 20 Jan 2010 14:11:04 +0900

Is there a reason not to apply the following patch?  `toggle-truncate-lines'
seems to do the same thing as `gnus-summary-toggle-truncation', but in a
less annoying manner (no screen flashing).

Thanks,

-Miles

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 2464b13..cf97cc2 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6956,14 +6956,7 @@ displayed, no centering will be performed."
          (gnus-summary-remove-process-mark article)))))
   (gnus-summary-position-point))
 
-(defun gnus-summary-toggle-truncation (&optional arg)
-  "Toggle truncation of summary lines.
-With ARG, turn line truncation on if ARG is positive."
-  (interactive "P")
-  (setq truncate-lines
-       (if (null arg) (not truncate-lines)
-         (> (prefix-numeric-value arg) 0)))
-  (redraw-display))
+(defalias 'gnus-summary-toggle-truncation 'toggle-truncate-lines)
 
 (defun gnus-summary-find-for-reselect ()
   "Return the number of an article to stay on across a reselect.


-- 
Back, n. That part of your friend which it is your privilege to contemplate in
your adversity.




reply via email to

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