Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/wconfig.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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: InfoDock Associates 9 ;; ORG: Brown U.
10 ;; 10 ;;
11 ;; ORIG-DATE: 15-Mar-89 11 ;; ORIG-DATE: 15-Mar-89
12 ;; LAST-MOD: 9-Dec-96 at 18:39:50 by Bob Weiner 12 ;; LAST-MOD: 14-Apr-95 at 16:26:27 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.")
76 67
77 ;;; ************************************************************************ 68 ;;; ************************************************************************
78 ;;; Public functions 69 ;;; Public functions
79 ;;; ************************************************************************ 70 ;;; ************************************************************************
80 71
175 166
176 ;;; ************************************************************************ 167 ;;; ************************************************************************
177 ;;; Private variables 168 ;;; Private variables
178 ;;; ************************************************************************ 169 ;;; ************************************************************************
179 170
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)