diff options
Diffstat (limited to 'lisp/gnus/gnus-win.el')
| -rw-r--r-- | lisp/gnus/gnus-win.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index 3fb8e469d04..8ac4e39fa52 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el @@ -1,4 +1,4 @@ -;;; gnus-win.el --- window configuration functions for Gnus +;;; gnus-win.el --- window configuration functions for Gnus -*- lexical-binding: t; -*- ;; Copyright (C) 1996-2021 Free Software Foundation, Inc. @@ -36,7 +36,6 @@ (defcustom gnus-use-full-window t "If non-nil, use the entire Emacs screen." - :group 'gnus-windows :type 'boolean) (defcustom gnus-use-atomic-windows nil @@ -46,17 +45,14 @@ (defcustom gnus-window-min-width 2 "Minimum width of Gnus buffers." - :group 'gnus-windows :type 'integer) (defcustom gnus-window-min-height 1 "Minimum height of Gnus buffers." - :group 'gnus-windows :type 'integer) (defcustom gnus-always-force-window-configuration nil "If non-nil, always force the Gnus window configurations." - :group 'gnus-windows :type 'boolean) (defcustom gnus-use-frames-on-any-display nil @@ -64,7 +60,6 @@ When nil, only frames on the same display as the selected frame will be used to display Gnus windows." :version "22.1" - :group 'gnus-windows :type 'boolean) (defvar gnus-buffer-configuration @@ -202,7 +197,6 @@ See the Gnus manual for an explanation of the syntax used.") (defcustom gnus-configure-windows-hook nil "A hook called when configuring windows." :version "22.1" - :group 'gnus-windows :type 'hook) ;;; Internal variables. @@ -252,7 +246,7 @@ See the Gnus manual for an explanation of the syntax used.") ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) (symbolp (car split)) (fboundp (car split))) - (setq split (eval split))) + (setq split (eval split t))) (let* ((type (car split)) (subs (cddr split)) (len (if (eq type 'horizontal) (window-width) (window-height))) @@ -329,7 +323,7 @@ See the Gnus manual for an explanation of the syntax used.") (setq sub (append (pop subs) nil)) (while (and (not (assq (car sub) gnus-window-to-buffer)) (symbolp (car sub)) (fboundp (car sub))) - (setq sub (eval sub))) + (setq sub (eval sub t))) (when sub (push sub comp-subs) (setq size (cadar comp-subs)) @@ -477,7 +471,7 @@ should have point." ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) (symbolp (car split)) (fboundp (car split))) - (setq split (eval split))) + (setq split (eval split t))) (setq type (elt split 0)) (cond |