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)