From 04adad108b0fb8322057cbb33d1d624cb4702485 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 26 May 2006 09:40:29 +0000
Subject: [PATCH] Added "Don't use this command in Lisp programs!" to
 docstrings of commands which take the current region as
 their arguments.

---
 epa.el |   28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/epa.el b/epa.el
index 6425d19..300098e 100644
--- 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.
-- 
1.7.10.4