Mercurial > hg > xemacs-beta
diff lisp/hyperbole/wconfig.el @ 100:4be1180a9e89 r20-1b2
Import from CVS: tag r20-1b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:15:11 +0200 |
parents | 131b0175ea99 |
children |
line wrap: on
line diff
--- a/lisp/hyperbole/wconfig.el Mon Aug 13 09:13:58 2007 +0200 +++ b/lisp/hyperbole/wconfig.el Mon Aug 13 09:15:11 2007 +0200 @@ -6,10 +6,10 @@ ;; KEYWORDS: frames, hypermedia ;; ;; AUTHOR: Bob Weiner -;; ORG: Brown U. +;; ORG: InfoDock Associates ;; ;; ORIG-DATE: 15-Mar-89 -;; LAST-MOD: 14-Apr-95 at 16:26:27 by Bob Weiner +;; LAST-MOD: 9-Dec-96 at 18:39:50 by Bob Weiner ;; ;; This file is part of Hyperbole. ;; Available for use and distribution under the same terms as GNU Emacs. @@ -65,6 +65,15 @@ (defconst wconfig-ring-max 10 "*Maximum length of window configuration ring before oldest elements are deleted.") +(defvar wconfig-names (set:create) + "Set of (name . window-configuration) elements.") + +(defvar wconfig-ring nil + "List of window configurations saved in a ring.") + +(defvar wconfig-ring-yank-pointer nil + "The tail of the window configuration ring whose car is the last thing yanked.") + ;;; ************************************************************************ ;;; Public functions ;;; ************************************************************************ @@ -168,15 +177,6 @@ ;;; Private variables ;;; ************************************************************************ -(defvar wconfig-names (set:create) - "Set of (name . window-configuration) elements.") - -(defvar wconfig-ring nil - "List of window configurations saved in a ring.") - -(defvar wconfig-ring-yank-pointer nil - "The tail of the window configuration ring whose car is the last thing yanked.") - (run-hooks 'wconfig-load-hook) (provide 'wconfig)