[Emacs-diffs] Changes to emacs/lisp/net/rcirc.el,v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/05/21 19:38:52

Index: rcirc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/rcirc.el,v
retrieving revision 1.32.2.1
retrieving revision 1.32.2.2
diff -u -b -r1.32.2.1 -r1.32.2.2
--- rcirc.el    5 May 2007 04:49:51 -0000       1.32.2.1
+++ rcirc.el    21 May 2007 19:38:52 -0000      1.32.2.2
@@ -95,9 +95,11 @@
 
 (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 @@
   :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 @@
                           (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))))