From 14e5809d3cc1fd89e50f88d5783219091596a271 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Wed, 29 Oct 2014 09:37:16 +0800 Subject: [PATCH] * net/rcirc.el (rcirc-fill-column): Use function. (rcirc-markup-fill): Remove adjustment. --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 967e4a74c14..89d887b0f0b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-10-29 Leo Liu + + * net/rcirc.el (rcirc-fill-column): Use function. + (rcirc-markup-fill): Remove adjustment. + 2014-10-28 Christopher Schmidt * calc/calc.el (quick-calc): diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 44434b789c9..388c2b2879c 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -146,12 +146,12 @@ for connections using SSL/TLS." (defcustom rcirc-fill-column nil "Column beyond which automatic line-wrapping should happen. If nil, use value of `fill-column'. -If a symbol (e.g., `frame-width' or `window-body-width'), call it -to compute the number of columns." +If a function (e.g., `frame-text-width' or `window-text-width'), +call it to compute the number of columns." :version "25.1" :type '(choice (const :tag "Value of `fill-column'" nil) - (symbol :tag "Function returning the number of columns") - (integer :tag "Number of columns")) + (integer :tag "Number of columns") + (function :tag "Function returning the number of columns")) :group 'rcirc) (defcustom rcirc-fill-prefix nil @@ -2536,8 +2536,8 @@ If ARG is given, opens the URL in a new browser window." (or rcirc-fill-prefix (make-string (- (point) (line-beginning-position)) ?\s))) (fill-column (- (cond ((null rcirc-fill-column) fill-column) - ((symbolp rcirc-fill-column) - (1- (funcall rcirc-fill-column))) + ((functionp rcirc-fill-column) + (funcall rcirc-fill-column)) (t rcirc-fill-column)) ;; make sure ... doesn't cause line wrapping 3))) -- 2.39.5