Mercurial > emacs
comparison lisp/jka-compr.el @ 13514:0e46e8075a1d
(auto-compression-mode): Make arg optional.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 11 Nov 1995 20:29:31 +0000 |
parents | 84acc3adcd63 |
children | 4362f8b4f83c |
comparison
equal
deleted
inserted
replaced
13513:907544cb2c7d | 13514:0e46e8075a1d |
---|---|
2 | 2 |
3 ;;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. | 3 ;;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: jka@ece.cmu.edu (Jay K. Adams) | 5 ;; Author: jka@ece.cmu.edu (Jay K. Adams) |
6 ;; Keywords: data | 6 ;; Keywords: data |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
7 | 23 |
8 ;;; Commentary: | 24 ;;; Commentary: |
9 | 25 |
10 ;;; This package implements low-level support for reading, writing, | 26 ;;; This package implements low-level support for reading, writing, |
11 ;;; and loading compressed files. It hooks into the low-level file | 27 ;;; and loading compressed files. It hooks into the low-level file |
667 inhibit-file-name-handlers))) | 683 inhibit-file-name-handlers))) |
668 (inhibit-file-name-operation operation)) | 684 (inhibit-file-name-operation operation)) |
669 (apply operation args))) | 685 (apply operation args))) |
670 | 686 |
671 ;;;###autoload | 687 ;;;###autoload |
672 (defun auto-compression-mode (arg) | 688 (defun auto-compression-mode (&optional arg) |
673 "Toggle automatic file compression and uncompression. | 689 "Toggle automatic file compression and uncompression. |
674 With prefix argument ARG, turn auto compression on if positive, else off. | 690 With prefix argument ARG, turn auto compression on if positive, else off. |
675 Returns the new status of auto compression (non-nil means on)." | 691 Returns the new status of auto compression (non-nil means on)." |
676 (interactive "P") | 692 (interactive "P") |
677 (let* ((installed (jka-compr-installed-p)) | 693 (let* ((installed (jka-compr-installed-p)) |