From 2c6063508ae232d4adf97b1aa699cb8cac77c282 Mon Sep 17 00:00:00 2001
From: Roland McGrath <roland@gnu.org>
Date: Mon, 10 Aug 1992 21:24:45 +0000
Subject: *** empty log message ***

---
 lisp/add-log.el | 50 ++++++++++++++++++++++++++++----------------------
 1 file changed, 28 insertions(+), 22 deletions(-)

(limited to 'lisp/add-log.el')

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 0aa2489f6b8..8809010d94d 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -287,28 +287,34 @@ Has a preference of looking backwards."
 					     (progn (forward-sexp 1) (point))))
 		       ;; Ordinary C function syntax.
 		       (setq beg (point))
-		       (down-list 1)	; into arglist
-		       (backward-up-list 1)
-		       (skip-chars-backward " \t")
-		       ;; Verify initial pos was after real start of function.
-		       (if (and (save-excursion
-				  (goto-char beg)
-				  ;; For this purpose, include the line
-				  ;; that has the decl keywords.
-				  ;; This may also include some of the comments
-				  ;; before the function.
-				  (while (and (not (bobp))
-					      (save-excursion
-						(forward-line -1)
-						(looking-at "[^\n\f]")))
-				    (forward-line -1))
-				  (>= location (point)))
-				;; Consistency check: going down and up
-				;; shouldn't take us back before BEG.
-				(> (point) beg))
-			   (buffer-substring (point)
-					     (progn (backward-sexp 1)
-						    (point)))))))))
+		       (if (condition-case nil
+			       ;; Protect against "Unbalanced parens" error.
+			       (progn
+				 (down-list 1) ; into arglist
+				 (backward-up-list 1)
+				 (skip-chars-backward " \t")
+				 t)
+			     (error nil))
+			   ;; Verify initial pos was after
+			   ;; real start of function.
+			   (if (and (save-excursion
+				      (goto-char beg)
+				      ;; For this purpose, include the line
+				      ;; that has the decl keywords.  This
+				      ;; may also include some of the
+				      ;; comments before the function.
+				      (while (and (not (bobp))
+						  (save-excursion
+						    (forward-line -1)
+						    (looking-at "[^\n\f]")))
+					(forward-line -1))
+				      (>= location (point)))
+				    ;; Consistency check: going down and up
+				    ;; shouldn't take us back before BEG.
+				    (> (point) beg))
+			       (buffer-substring (point)
+						 (progn (backward-sexp 1)
+							(point))))))))))
 	    ((memq major-mode
 		   '(TeX-mode plain-TeX-mode LaTeX-mode;; tex-mode.el
 			      plain-tex-mode latex-mode;; cmutex.el
-- 
cgit v1.2.1