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)