Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/wconfig.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: Saves and yanks from save ring of window configurations. 4 ;; SUMMARY: Saves and yanks from save ring of window configurations.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: frames, hypermedia 6 ;; KEYWORDS: frames, hypermedia
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Brown U. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 15-Mar-89 11 ;; ORIG-DATE: 15-Mar-89
12 ;; LAST-MOD: 14-Apr-95 at 16:26:27 by Bob Weiner 12 ;; LAST-MOD: 9-Dec-96 at 18:39:50 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1989-1995, Free Software Foundation, Inc. 17 ;; Copyright (C) 1989-1995, Free Software Foundation, Inc.
62 ;;; Public variables 62 ;;; Public variables
63 ;;; ************************************************************************ 63 ;;; ************************************************************************
64 64
65 (defconst wconfig-ring-max 10 65 (defconst wconfig-ring-max 10
66 "*Maximum length of window configuration ring before oldest elements are deleted.") 66 "*Maximum length of window configuration ring before oldest elements are deleted.")
67
68 (defvar wconfig-names (set:create)
69 "Set of (name . window-configuration) elements.")
70
71 (defvar wconfig-ring nil
72 "List of window configurations saved in a ring.")
73
74 (defvar wconfig-ring-yank-pointer nil
75 "The tail of the window configuration ring whose car is the last thing yanked.")
67 76
68 ;;; ************************************************************************ 77 ;;; ************************************************************************
69 ;;; Public functions 78 ;;; Public functions
70 ;;; ************************************************************************ 79 ;;; ************************************************************************
71 80
166 175
167 ;;; ************************************************************************ 176 ;;; ************************************************************************
168 ;;; Private variables 177 ;;; Private variables
169 ;;; ************************************************************************ 178 ;;; ************************************************************************
170 179
171 (defvar wconfig-names (set:create)
172 "Set of (name . window-configuration) elements.")
173
174 (defvar wconfig-ring nil
175 "List of window configurations saved in a ring.")
176
177 (defvar wconfig-ring-yank-pointer nil
178 "The tail of the window configuration ring whose car is the last thing yanked.")
179
180 (run-hooks 'wconfig-load-hook) 180 (run-hooks 'wconfig-load-hook)
181 181
182 (provide 'wconfig) 182 (provide 'wconfig)