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.

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)