diff options
| author | Sebastien Delafond <seb@debian.org> | 2013-08-11 16:27:56 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:27 +0200 |
| commit | 53b246b7d66bfa03ab9bcf47d4647913b401e3d6 (patch) | |
| tree | b5ea4e732c2219456d13048feb05b37b22a76391 /lisp/org-crypt.el | |
| parent | 8606e2621fc00fd8b334a06924aeef3aab7a2e4d (diff) | |
| parent | e32a45ed36d6000db4b39171149072d11b77af72 (diff) | |
Imported Debian patch 8.0.7-1
Diffstat (limited to 'lisp/org-crypt.el')
| -rw-r--r-- | lisp/org-crypt.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el index a187d2f..b02a7ce 100644 --- a/lisp/org-crypt.el +++ b/lisp/org-crypt.el @@ -1,6 +1,6 @@ ;;; org-crypt.el --- Public key encryption for org-mode entries -;; Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc. +;; Copyright (C) 2007-2013 Free Software Foundation, Inc. ;; Emacs Lisp Archive Entry ;; Filename: org-crypt.el @@ -139,11 +139,11 @@ See `org-crypt-disable-auto-save'." (message "org-decrypt: Decrypting entry with auto-save-mode enabled. This may cause leakage.")) ((eq org-crypt-disable-auto-save 'encrypt) (message "org-decrypt: Enabling re-encryption on auto-save.") - (add-hook 'auto-save-hook - (lambda () - (message "org-crypt: Re-encrypting all decrypted entries due to auto-save.") - (org-encrypt-entries)) - nil t)) + (org-add-hook 'auto-save-hook + (lambda () + (message "org-crypt: Re-encrypting all decrypted entries due to auto-save.") + (org-encrypt-entries)) + nil t)) (t nil)))) (defun org-crypt-key-for-heading () @@ -258,13 +258,13 @@ See `org-crypt-disable-auto-save'." (save-excursion (org-back-to-heading t) (search-forward "-----BEGIN PGP MESSAGE-----" - (save-excursion (org-end-of-subtree t)) t)))) + (save-excursion (outline-next-heading)) t)))) (defun org-crypt-use-before-save-magic () "Add a hook to automatically encrypt entries before a file is saved to disk." (add-hook 'org-mode-hook - (lambda () (add-hook 'before-save-hook 'org-encrypt-entries nil t)))) + (lambda () (org-add-hook 'before-save-hook 'org-encrypt-entries nil t)))) (add-hook 'org-reveal-start-hook 'org-decrypt-entry) |