[Emacs-diffs] emacs-24 r117072: Minor stylistic changes in find-gc.el.

[Eli Zaretskii]

------------------------------------------------------------
revno: 117072
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: emacs-24
timestamp: Tue 2014-05-06 13:29:37 +0300
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/find-gc.el     findgc.el-20091113204419-o5vbwnq5f7feedwu-2220

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-06 09:51:05 +0000
+++ b/lisp/ChangeLog    2014-05-06 10:29:37 +0000
@@ -1,3 +1,9 @@
+2014-05-06  Eli Zaretskii  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp-sh.el (tramp-remote-process-environment): Remove

=== modified file 'lisp/emacs-lisp/find-gc.el'
--- a/lisp/emacs-lisp/find-gc.el        2014-05-06 03:53:31 +0000
+++ b/lisp/emacs-lisp/find-gc.el        2014-05-06 10:29:37 +0000
@@ -74,8 +74,7 @@
   (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 @@
 
 (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 @@
          (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 @@
       (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)