diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2014-05-06 13:29:37 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2014-05-06 13:29:37 +0300 |
| commit | c5d670f5ad4759c4efff952ae55b563889f4a517 (patch) | |
| tree | e7e8dc645631f0ea5c7cca16bf6f45ae7a7b6527 | |
| parent | 23e19cf290e71aacf4ad189d0ca0a51f3f967baf (diff) | |
| download | emacs-c5d670f5ad4759c4efff952ae55b563889f4a517.tar.gz | |
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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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) |