(get-method-definition, get-method-definition-1):

Rename var md to get-method-definition-md and defvar it.

1 files changed, 8 insertions, 5 deletions

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 48a72a9a3ec..dbeff6a6bbc 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -506,18 +506,21 @@ Has a preference of looking backwards."
 					 (match-end 1))))))))
     (error nil)))
 
+(defvar get-method-definition-md)
+
 ;; Subroutine used within get-method-definition.
 ;; Add the last match in the buffer to the end of `md',
 ;; followed by the string END; move to the end of that match.
 (defun get-method-definition-1 (end)
-  (setq md (concat md 
-		   (buffer-substring (match-beginning 1) (match-end 1))
-		   end))
+  (setq get-method-definition-md
+	(concat get-method-definition-md 
+		(buffer-substring (match-beginning 1) (match-end 1))
+		end))
   (goto-char (match-end 0)))
 
 ;; For objective C, return the method name if we are in a method.
 (defun get-method-definition ()
-  (let ((md "["))
+  (let ((get-method-definition-md "["))
     (save-excursion
       (if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t)
 	  (get-method-definition-1 " ")))
@@ -529,7 +532,7 @@ Has a preference of looking backwards."
 	  (looking-at
 	   "\\([A-Za-z_]*:?\\)\\s-*\\(([^)]*)\\)?[A-Za-z_]*[ \t\n\f\r]*")
 	  (get-method-definition-1 ""))
-	(concat md "]"))))))
+	(concat get-method-definition-md "]"))))))
 
 
 (provide 'add-log)