Mercurial > hg > xemacs-beta

comparison lisp/packages/auto-save.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 538048ae2ab8
children
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
1 ;; -*- Emacs-Lisp -*- 1 ;; -*- Emacs-Lisp -*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: auto-save.el 4 ;; File: auto-save.el
5 ;; Version: $Revision: 1.5 $ 5 ;; Version: $Revision: 1.6 $
6 ;; RCS: 6 ;; RCS:
7 ;; Description: Safer autosaving with support for efs and /tmp. 7 ;; Description: Safer autosaving with support for efs and /tmp.
8 ;; This version of auto-save is designed to work with efs, 8 ;; This version of auto-save is designed to work with efs,
9 ;; instead of ange-ftp. 9 ;; instead of ange-ftp.
10 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>, 10 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>,
11 ;; 11 ;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13 13
14 (defconst auto-save-version (substring "$Revision: 1.5 $" 11 -2) 14 (defconst auto-save-version (substring "$Revision: 1.6 $" 11 -2)
15 "Version number of auto-save.") 15 "Version number of auto-save.")
16 16
17 ;;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de> 17 ;;; Copyright (C) 1992 by Sebastian Kremer <sk@thp.uni-koeln.de>
18 18
19 ;;; This program is free software; you can redistribute it and/or modify 19 ;;; This program is free software; you can redistribute it and/or modify
98 (provide 'auto-save) 98 (provide 'auto-save)
99 99
100 ;;;; CUSTOMIZATION ===================================================== 100 ;;;; CUSTOMIZATION =====================================================
101 101
102 (defgroup auto-save nil 102 (defgroup auto-save nil
103 "Autosaving with support for efs and /tmp" 103 "Autosaving with support for efs and /tmp."
104 :group 'data) 104 :group 'data)
105 105
106 (put 'auto-save-interval 'custom-type 'integer) 106 (put 'auto-save-interval 'custom-type 'integer)
107 (put 'auto-save-interval 'factory-value '(300)) 107 (put 'auto-save-interval 'factory-value '(300))
108 (custom-add-to-group 'auto-save 'auto-save-interval 'custom-variable) 108 (custom-add-to-group 'auto-save 'auto-save-interval 'custom-variable)
147 147
148 as auto save file. 148 as auto save file.
149 149
150 See also variables `auto-save-directory-fallback', 150 See also variables `auto-save-directory-fallback',
151 `efs-auto-save' and `efs-auto-save-remotely'." 151 `efs-auto-save' and `efs-auto-save-remotely'."
152 :type '(choice (const :tag "same as file" nil) 152 :type '(choice (const :tag "Same as file" nil)
153 directory) 153 directory)
154 :group 'auto-save) 154 :group 'auto-save)
155 155
156 156
157 (defcustom auto-save-hash-p nil 157 (defcustom auto-save-hash-p nil
173 "*If non-nil, `recover-all-files' offers to delete autosave files 173 "*If non-nil, `recover-all-files' offers to delete autosave files
174 that are out of date or were dismissed for recovering. 174 that are out of date or were dismissed for recovering.
175 Special value 'always deletes those files silently." 175 Special value 'always deletes those files silently."
176 :type '(choice (const :tag "on" t) 176 :type '(choice (const :tag "on" t)
177 (const :tag "off" nil) 177 (const :tag "off" nil)
178 (const :tag "delete silently" always)) 178 (const :tag "Delete silently" always))
179 :group 'auto-save) 179 :group 'auto-save)
180 180
181 ;;;; end of customization 181 ;;;; end of customization
182 182
183 183