mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(rcirc-print): Handle `window-width'.
(rcirc-buffer-maximum-lines): Doc fix.
This commit is contained in:
Richard M. Stallman 2007-05-21 19:39:10 +00:00
parent 82113a92c5
commit d51f146b48
2 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
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.

11
lisp/net/rcirc.el
View file

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