Mercurial > emacs
comparison lisp/uncompress.el @ 657:fec3f9a1e3e5
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 30 May 1992 20:24:49 +0000 |
parents | 8136d331c964 |
children | 4f28bd14272c |
comparison
equal
deleted
inserted
replaced
656:d74e65773062 | 657:fec3f9a1e3e5 |
---|---|
1 ;;; uncompress.el --- auto-decompression hook for visiting .Z files | |
2 | |
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. | |
4 | |
5 ;; This file is part of GNU Emacs. | |
6 | |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
8 ;; it under the terms of the GNU General Public License as published by | |
9 ;; the Free Software Foundation; either version 1, or (at your option) | |
10 ;; any later version. | |
11 | |
12 ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 ;; GNU General Public License for more details. | |
16 | |
17 ;; You should have received a copy of the GNU General Public License | |
18 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
20 | |
1 ;; When we are about to make a backup file, | 21 ;; When we are about to make a backup file, |
2 ;; uncompress the file we visited | 22 ;; uncompress the file we visited |
3 ;; so that making the backup can work properly. | 23 ;; so that making the backup can work properly. |
4 ;; This is used as a write-file-hook. | 24 ;; This is used as a write-file-hook. |
5 | 25 |
43 (setq buffer-file-name (concat buffer-file-name ".Z")) | 63 (setq buffer-file-name (concat buffer-file-name ".Z")) |
44 (insert-file-contents buffer-file-name t) | 64 (insert-file-contents buffer-file-name t) |
45 (goto-char (point-min)) | 65 (goto-char (point-min)) |
46 (setq error nil) | 66 (setq error nil) |
47 t))) | 67 t))) |
68 | |
69 ;;; uncompress.el ends here |