From: Eli Zaretskii Date: Thu, 8 May 2008 11:05:25 +0000 (+0000) Subject: Renamed lisp/epa-file-hook.el to lisp/epa-hook.el. X-Git-Tag: emacs-pretest-23.0.90~5719 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8691412347e6edf3a1b792db1f7fd77bafd15284;p=emacs.git Renamed lisp/epa-file-hook.el to lisp/epa-hook.el. --- diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 90083938e1c..1b64f54cbdd 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,7 @@ +2008-05-08 Eli Zaretskii + + * makefile.w32-in (lisp2): Rename epa-file-hook.elc to epa-hook.elc. + 2008-05-03 Eli Zaretskii * makefile.w32-in (lisp2): Add epa-file-hook.elc, to track the diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in index 91a07f24683..8a168b3842e 100644 --- a/lib-src/makefile.w32-in +++ b/lib-src/makefile.w32-in @@ -281,7 +281,7 @@ lisp2 = \ $(lispsource)jka-cmpr-hook.elc \ $(lispsource)vc-hooks.elc \ $(lispsource)ediff-hook.elc \ - $(lispsource)epa-file-hook.elc \ + $(lispsource)epa-hook.elc \ $(TOOLTIP_SUPPORT) \ $(WINNT_SUPPORT) \ $(WINDOW_SUPPORT) \ diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87b5a0885d5..97b84e2b001 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-05-08 Eli Zaretskii + * epa-hook.el: Renamed from epa-file-hook.el, to avoid + file-names clashes on 8+3 filesystems. + * org/org-jsinfo.el: Renamed from org-infojs.el, to avoid file-names clashes on 8+3 filesystems. diff --git a/lisp/epa-file-hook.el b/lisp/epa-file-hook.el deleted file mode 100644 index 18ee43e13b8..00000000000 --- a/lisp/epa-file-hook.el +++ /dev/null @@ -1,108 +0,0 @@ -;;; epa-file-hook.el --- preloaded code to enable epa-file.el -;; Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc. - -;; Author: Daiki Ueno -;; Keywords: PGP, GnuPG - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Code: - -(defgroup epa-file nil - "The EasyPG Assistant hooks for transparent file encryption" - :version "23.1" - :group 'epa) - -(defun epa-file--file-name-regexp-set (variable value) - (set-default variable value) - (if (fboundp 'epa-file-name-regexp-update) - (epa-file-name-regexp-update))) - -(defcustom epa-file-name-regexp "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" - "Regexp which matches filenames to be encrypted with GnuPG. - -If you set this outside Custom while epa-file is already enabled, you -have to call `epa-file-name-regexp-update' after setting it to -properly update file-name-handler-alist. Setting this through Custom -does that automatically." - :type 'regexp - :group 'epa-file - :set 'epa-file--file-name-regexp-set) - -(defcustom epa-file-inhibit-auto-save t - "If non-nil, disable auto-saving when opening an encrypted file." - :type 'boolean - :group 'epa-file) - -(defvar epa-file-encrypt-to nil - "*Recipient(s) used for encrypting files. -May either be a string or a list of strings.") - -(put 'epa-file-encrypt-to 'safe-local-variable - (lambda (val) - (or (stringp val) - (and (listp val) - (catch 'safe - (mapc (lambda (elt) - (unless (stringp elt) - (throw 'safe nil))) - val) - t))))) - -(put 'epa-file-encrypt-to 'permanent-local t) - -(defvar epa-file-handler - (cons epa-file-name-regexp 'epa-file-handler)) - -(defvar epa-file-auto-mode-alist-entry - (list epa-file-name-regexp nil 'epa-file)) - -(defun epa-file-name-regexp-update () - (interactive) - (unless (equal (car epa-file-handler) epa-file-name-regexp) - (setcar epa-file-handler epa-file-name-regexp))) - -(defun epa-file-find-file-hook () - (if (and buffer-file-name - (string-match epa-file-name-regexp buffer-file-name) - epa-file-inhibit-auto-save) - (auto-save-mode 0)) - (set-buffer-modified-p nil)) - -(define-minor-mode auto-encryption-mode - "Toggle automatic file encryption and decryption. -With prefix argument ARG, turn auto encryption on if positive, else off. -Return the new status of auto encryption (non-nil means on)." - :global t :init-value t :group 'epa-file :version "23.1" - (setq file-name-handler-alist - (delq epa-file-handler file-name-handler-alist)) - (remove-hook 'find-file-hooks 'epa-file-find-file-hook) - (setq auto-mode-alist (delq epa-file-auto-mode-alist-entry - auto-mode-alist)) - (when auto-encryption-mode - (setq file-name-handler-alist - (cons epa-file-handler file-name-handler-alist)) - (add-hook 'find-file-hook 'epa-file-find-file-hook) - (setq auto-mode-alist (cons epa-file-auto-mode-alist-entry - auto-mode-alist)))) - -(put 'epa-file-handler 'safe-magic t) -(put 'epa-file-handler 'operations '(write-region insert-file-contents)) - -(provide 'epa-file-hook) - -;; arch-tag: f75c8a50-d32e-4eb3-9ec6-9e940c1fc8b5 -;;; epa-file-hook.el ends here diff --git a/lisp/epa-hook.el b/lisp/epa-hook.el new file mode 100644 index 00000000000..57c5304c45f --- /dev/null +++ b/lisp/epa-hook.el @@ -0,0 +1,108 @@ +;;; epa-hook.el --- preloaded code to enable epa-file.el +;; Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc. + +;; Author: Daiki Ueno +;; Keywords: PGP, GnuPG + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Code: + +(defgroup epa-file nil + "The EasyPG Assistant hooks for transparent file encryption" + :version "23.1" + :group 'epa) + +(defun epa-file--file-name-regexp-set (variable value) + (set-default variable value) + (if (fboundp 'epa-file-name-regexp-update) + (epa-file-name-regexp-update))) + +(defcustom epa-file-name-regexp "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" + "Regexp which matches filenames to be encrypted with GnuPG. + +If you set this outside Custom while epa-file is already enabled, you +have to call `epa-file-name-regexp-update' after setting it to +properly update file-name-handler-alist. Setting this through Custom +does that automatically." + :type 'regexp + :group 'epa-file + :set 'epa-file--file-name-regexp-set) + +(defcustom epa-file-inhibit-auto-save t + "If non-nil, disable auto-saving when opening an encrypted file." + :type 'boolean + :group 'epa-file) + +(defvar epa-file-encrypt-to nil + "*Recipient(s) used for encrypting files. +May either be a string or a list of strings.") + +(put 'epa-file-encrypt-to 'safe-local-variable + (lambda (val) + (or (stringp val) + (and (listp val) + (catch 'safe + (mapc (lambda (elt) + (unless (stringp elt) + (throw 'safe nil))) + val) + t))))) + +(put 'epa-file-encrypt-to 'permanent-local t) + +(defvar epa-file-handler + (cons epa-file-name-regexp 'epa-file-handler)) + +(defvar epa-file-auto-mode-alist-entry + (list epa-file-name-regexp nil 'epa-file)) + +(defun epa-file-name-regexp-update () + (interactive) + (unless (equal (car epa-file-handler) epa-file-name-regexp) + (setcar epa-file-handler epa-file-name-regexp))) + +(defun epa-file-find-file-hook () + (if (and buffer-file-name + (string-match epa-file-name-regexp buffer-file-name) + epa-file-inhibit-auto-save) + (auto-save-mode 0)) + (set-buffer-modified-p nil)) + +(define-minor-mode auto-encryption-mode + "Toggle automatic file encryption and decryption. +With prefix argument ARG, turn auto encryption on if positive, else off. +Return the new status of auto encryption (non-nil means on)." + :global t :init-value t :group 'epa-file :version "23.1" + (setq file-name-handler-alist + (delq epa-file-handler file-name-handler-alist)) + (remove-hook 'find-file-hooks 'epa-file-find-file-hook) + (setq auto-mode-alist (delq epa-file-auto-mode-alist-entry + auto-mode-alist)) + (when auto-encryption-mode + (setq file-name-handler-alist + (cons epa-file-handler file-name-handler-alist)) + (add-hook 'find-file-hook 'epa-file-find-file-hook) + (setq auto-mode-alist (cons epa-file-auto-mode-alist-entry + auto-mode-alist)))) + +(put 'epa-file-handler 'safe-magic t) +(put 'epa-file-handler 'operations '(write-region insert-file-contents)) + +(provide 'epa-file-hook) + +;; arch-tag: f75c8a50-d32e-4eb3-9ec6-9e940c1fc8b5 +;;; epa-file-hook.el ends here diff --git a/src/ChangeLog b/src/ChangeLog index e68efb42094..9ed1805d31a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-05-08 Eli Zaretskii + + * Makefile.in (lisp, shortlisp): Rename epa-file-hook.elc to + epa-hook.elc. + 2008-05-08 Juanma Barranquero * font.c (Ffont_match_p): Don't use `iff' in docstring. diff --git a/src/Makefile.in b/src/Makefile.in index 62cb3daf424..80df9a66a93 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -779,7 +779,7 @@ lisp= \ ${lispsource}jka-cmpr-hook.elc \ ${lispsource}vc-hooks.elc \ ${lispsource}ediff-hook.elc \ - ${lispsource}epa-file-hook.elc \ + ${lispsource}epa-hook.elc \ TOOLTIP_SUPPORT \ VMS_SUPPORT \ MSDOS_SUPPORT \ @@ -871,7 +871,7 @@ shortlisp= \ ../lisp/vc-hooks.elc \ ../lisp/jka-cmpr-hook.elc \ ../lisp/ediff-hook.elc \ - ../lisp/epa-file-hook.elc \ + ../lisp/epa-hook.elc \ ../lisp/widget.elc \ ../lisp/window.elc \ ../lisp/version.el