[Emacs-diffs] Changes to emacs/lisp/man.el,v

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     07/11/23 00:32:42

Index: man.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/man.el,v
retrieving revision 1.173
retrieving revision 1.174
diff -u -b -r1.173 -r1.174
--- man.el      16 Nov 2007 01:18:50 -0000      1.173
+++ man.el      23 Nov 2007 00:32:42 -0000      1.174
@@ -766,7 +766,6 @@
        ;;               minal (using an ioctl(2) if available, the value of
        ;;               $COLUMNS,  or falling back to 80 characters if nei-
        ;;               ther is available).
-       (if window-system
            (unless (or (getenv "MANWIDTH") (getenv "COLUMNS"))
              ;; This isn't strictly correct, since we don't know how
              ;; the page will actually be displayed, but it seems
@@ -776,7 +775,7 @@
                                  ((and (integerp Man-width) (> Man-width 0))
                                   Man-width)
                                  (Man-width (frame-width))
-                                 ((window-width)))))))
+                             ((window-width))))))
        (setenv "GROFF_NO_SGR" "1")
        (if (fboundp 'start-process)
            (set-process-sentinel