diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-05 15:06:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-05 15:06:25 +0000 |
commit | daf53c9e4f4b4695a5623bd05b2fca3701977765 (patch) | |
tree | 2dd46b7d0a6fe47580af6466ab81577e6d262bb0 /lisp/frame.el | |
parent | b31b14dd74aecd9af550a2245b6601950f603c10 (diff) | |
download | emacs-daf53c9e4f4b4695a5623bd05b2fca3701977765.tar.gz |
Use defcustom.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r-- | lisp/frame.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index b08fdc2c4b5..abda506b8a2 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,6 +1,6 @@ ;;; frame.el --- multi-frame management independent of window systems. -;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -72,7 +72,7 @@ These supersede the values given in `default-frame-alist'.") (function (lambda () (make-frame pop-up-frame-alist)))) -(defvar special-display-frame-alist +(defcustom special-display-frame-alist '((height . 14) (width . 80) (unsplittable . t)) "*Alist of frame parameters used when creating special frames. Special frames are used for buffers whose names are in @@ -80,7 +80,11 @@ Special frames are used for buffers whose names are in one of the regular expressions in `special-display-regexps'. This variable can be set in your init file, like this: (setq special-display-frame-alist '((width . 80) (height . 20))) -These supersede the values given in `default-frame-alist'.") +These supersede the values given in `default-frame-alist'." + :type '(repeat (cons :format "%v" + (symbol :tag "Parameter") + (sexp :tag "Value"))) + :group 'frames) ;; Display BUFFER in its own frame, reusing an existing window if any. ;; Return the window chosen. @@ -675,8 +679,11 @@ that is beyond the control of Emacs and this command has no effect on it." (modify-frame-parameters (selected-frame) (list (cons 'auto-lower (> arg 0))))) -(defvar scroll-bar-side 'left - "*Specify which side scroll bars should be on. Value is `left' or `right'.") +(defcustom scroll-bar-side 'left + "*Specify which side scroll bars should be on. Value is `left' or `right'." + :type '(choice (const left) + (const right)) + :group 'frames) (defun toggle-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scroll bars. |