Mercurial > hg > xemacs-beta
diff lisp/hyperbole/wconfig.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | 4103f0995bd7 |
children | 4be1180a9e89 |
line wrap: on
line diff
--- a/lisp/hyperbole/wconfig.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/hyperbole/wconfig.el Mon Aug 13 09:02:59 2007 +0200 @@ -6,10 +6,10 @@ ;; KEYWORDS: frames, hypermedia ;; ;; AUTHOR: Bob Weiner -;; ORG: InfoDock Associates +;; ORG: Brown U. ;; ;; ORIG-DATE: 15-Mar-89 -;; LAST-MOD: 9-Dec-96 at 18:39:50 by Bob Weiner +;; LAST-MOD: 14-Apr-95 at 16:26:27 by Bob Weiner ;; ;; This file is part of Hyperbole. ;; Available for use and distribution under the same terms as GNU Emacs. @@ -65,15 +65,6 @@ (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 ;;; ************************************************************************ @@ -177,6 +168,15 @@ ;;; 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)