Added "Don't use this command in Lisp programs!" to docstrings of
authorueno <ueno>
Fri, 26 May 2006 09:40:29 +0000 (09:40 +0000)
committerueno <ueno>
Fri, 26 May 2006 09:40:29 +0000 (09:40 +0000)
commands which take the current region as their arguments.

epa.el

diff --git a/epa.el b/epa.el
index 6425d19..300098e 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -549,11 +549,13 @@ If no one is selected, symmetric encryption will be performed.  ")))
 
 ;;;###autoload
 (defun epa-decrypt-region (start end)
-  "Decrypt the current region between START and END."
+  "Decrypt the current region between START and END.
+
+Don't use this command in Lisp programs!"
   (interactive "r")
   (save-excursion
     (let ((context (epg-make-context))
-         charset plain coding-system)
+         plain)
       (message "Decrypting...")
       (setq plain (epg-decrypt-string context (buffer-substring start end)))
       (message "Decrypting...done")
@@ -567,13 +569,15 @@ If no one is selected, symmetric encryption will be performed.  ")))
 
 ;;;###autoload
 (defun epa-decrypt-armor-in-region (start end)
-  "Decrypt OpenPGP armors in the current region between START and END."
+  "Decrypt OpenPGP armors in the current region between START and END.
+
+Don't use this command in Lisp programs!"
   (interactive "r")
   (save-excursion
     (save-restriction
       (narrow-to-region start end)
       (goto-char start)
-      (let (armor-start armor-end charset plain coding-system)
+      (let (armor-start armor-end charset coding-system)
        (while (re-search-forward "-----BEGIN PGP MESSAGE-----$" nil t)
          (setq armor-start (match-beginning 0)
                armor-end (re-search-forward "^-----END PGP MESSAGE-----$"
@@ -593,7 +597,9 @@ If no one is selected, symmetric encryption will be performed.  ")))
 
 ;;;###autoload
 (defun epa-verify-region (start end)
-  "Verify the current region between START and END."
+  "Verify the current region between START and END.
+
+Don't use this command in Lisp programs!"
   (interactive "r")
   (let ((context (epg-make-context)))
     (epg-verify-string context
@@ -606,7 +612,9 @@ If no one is selected, symmetric encryption will be performed.  ")))
 
 ;;;###autoload
 (defun epa-verify-armor-in-region (start end)
-  "Verify OpenPGP armors in the current region between START and END."
+  "Verify OpenPGP armors in the current region between START and END.
+
+Don't use this command in Lisp programs!"
   (interactive "r")
   (save-excursion
     (save-restriction
@@ -633,7 +641,9 @@ If no one is selected, symmetric encryption will be performed.  ")))
 
 ;;;###autoload
 (defun epa-sign-region (start end signers mode)
-  "Sign the current region between START and END by SIGNERS keys selected."
+  "Sign the current region between START and END by SIGNERS keys selected.
+
+Don't use this command in Lisp programs!"
   (interactive
    (list (region-beginning) (region-end)
         (epa-select-keys (epg-make-context) "Select keys for signing.
@@ -661,7 +671,9 @@ If no one is selected, default secret key is used.  "
 
 ;;;###autoload
 (defun epa-encrypt-region (start end recipients)
-  "Encrypt the current region between START and END for RECIPIENTS."
+  "Encrypt the current region between START and END for RECIPIENTS.
+
+Don't use this command in Lisp programs!"
   (interactive
    (list (region-beginning) (region-end)
         (epa-select-keys (epg-make-context) "Select recipents for encryption.