From c5d670f5ad4759c4efff952ae55b563889f4a517 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 6 May 2014 13:29:37 +0300
Subject: [PATCH] Minor stylistic changes in find-gc.el.

 lisp/emacs-lisp/find-gc.el (find-gc-unsafe, find-unsafe-funcs)
 (trace-unsafe, trace-use-tree): Make parentheses style be
 according to Emacs style.
---
 lisp/ChangeLog             |  6 ++++++
 lisp/emacs-lisp/find-gc.el | 12 ++++--------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5766f03063..7a737129bb7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-05-06  Eli Zaretskii  <eliz@gnu.org>
+
+	* emacs-lisp/find-gc.el (find-gc-unsafe, find-unsafe-funcs)
+	(trace-unsafe, trace-use-tree): Make parentheses style be
+	according to Emacs style.
+
 2014-05-06  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp-sh.el (tramp-remote-process-environment): Remove
diff --git a/lisp/emacs-lisp/find-gc.el b/lisp/emacs-lisp/find-gc.el
index 3608e7a0b70..83eb26e86d7 100644
--- a/lisp/emacs-lisp/find-gc.el
+++ b/lisp/emacs-lisp/find-gc.el
@@ -74,8 +74,7 @@ Also store it in `find-gc-unsafe-list'."
   (setq find-gc-unsafe-list
 	(sort find-gc-unsafe-list
 	      (function (lambda (x y)
-			  (string-lessp (car x) (car y))))))
-)
+			  (string-lessp (car x) (car y)))))))
 
 ;;; This does a depth-first search to find all functions that can
 ;;; ultimately call the function "target".  The result is an a-list
@@ -85,8 +84,7 @@ Also store it in `find-gc-unsafe-list'."
 
 (defun find-unsafe-funcs (target)
   (setq find-gc-unsafe-list (list (list target)))
-  (trace-unsafe target)
-)
+  (trace-unsafe target))
 
 (defun trace-unsafe (func)
   (let ((used (assq func find-gc-subrs-callers)))
@@ -97,8 +95,7 @@ Also store it in `find-gc-unsafe-list'."
 	  (memq (car used) find-gc-noreturn-list)
 	  (progn
 	    (push (cons (car used) func) find-gc-unsafe-list)
-	    (trace-unsafe (car used))))))
-)
+	    (trace-unsafe (car used)))))))
 
 
 
@@ -145,8 +142,7 @@ Also store it in `find-gc-unsafe-list'."
       (while (setq p2 (cdr p2))
 	(if (setq found (assq (car p2) find-gc-subrs-callers))
 	    (setcdr found (cons (car (car ptr)) (cdr found)))))
-      (setq ptr (cdr ptr))))
-)
+      (setq ptr (cdr ptr)))))
 
 (provide 'find-gc)
 
-- 
2.11.4.GIT