procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor stylistic changes in find-gc.el.

Browse source 
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.
This commit is contained in:
Eli Zaretskii 2014-05-06 13:29:37 +03:00
parent 23e19cf290
commit c5d670f5ad
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

12
lisp/emacs-lisp/find-gc.el
View file

@ -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)