Commit d51f146b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rcirc-fill-column): Allow `window-width'.

(rcirc-print): Handle `window-width'.
(rcirc-buffer-maximum-lines): Doc fix.
parent 82113a92
2007-05-21 Trent Buck <trentbuck@gmail.com> (tiny change)
* net/rcirc.el (rcirc-fill-column): Allow `window-width'.
(rcirc-print): Handle `window-width'.
(rcirc-buffer-maximum-lines): Doc fix.
2007-05-19 Kevin Ryde <user42@zip.com.au>
* info.el (Info-fontify-node): Match https also.
2007-05-18 Richard Stallman <rms@gnu.org>
 
* simple.el (push-mark): Doc fix.
......@@ -95,9 +95,11 @@ Each element looks like (SERVER-REGEXP . CHANNEL-LIST)."
(defcustom rcirc-fill-column nil
"*Column beyond which automatic line-wrapping should happen.
If nil, use value of `fill-column'. If 'frame-width, use the
maximum frame width."
If nil, use value of `fill-column'.
If `window-width', use the window's width as maximum.
If `frame-width', use the frame's width as maximum."
:type '(choice (const :tag "Value of `fill-column'")
(const :tag "Full window width" window-width)
(const :tag "Full frame width" frame-width)
(integer :tag "Number of columns"))
:group 'rcirc)
......@@ -143,8 +145,7 @@ number. If zero or nil, no truncating is done."
:group 'rcirc)
(defcustom rcirc-scroll-show-maximum-output t
"*If non-nil, scroll buffer to keep the point at the bottom of
the window."
"*If non-nil, scroll buffer to keep the point at the bottom of the window."
:type 'boolean
:group 'rcirc)
......@@ -1245,6 +1246,8 @@ record activity."
(make-string (- text-start fill-start) ?\s)))
(fill-column (cond ((eq rcirc-fill-column 'frame-width)
(1- (frame-width)))
((eq rcirc-fill-column 'window-width)
(1- (window-width)))
(rcirc-fill-column
rcirc-fill-column)
(t fill-column))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment