diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/testcover.el | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 8a10f26a7b4..284e3acd959 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1288,7 +1288,7 @@ infinite loops when the code/environment contains a circular object.") (while (not (eq sexp (setq sexp (edebug-unwrap sexp))))) (cond ((consp sexp) - (or (gethash sexp edebug--unwrap-cache nil) + (or (gethash sexp edebug--unwrap-cache) (let ((remainder sexp) (current (cons nil nil))) (prog1 current @@ -1303,8 +1303,8 @@ infinite loops when the code/environment contains a circular object.") (setf (cdr current) (edebug-unwrap* remainder)) nil) - ((gethash remainder edebug--unwrap-cache nil) - (setf (cdr current) (gethash remainder edebug--unwrap-cache nil)) + ((gethash remainder edebug--unwrap-cache) + (setf (cdr current) (gethash remainder edebug--unwrap-cache)) nil) (t (setq current (setf (cdr current) (cons nil nil))))))))))) diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index b007e3c9091..eb78768f0e6 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/lisp/emacs-lisp/testcover.el @@ -296,7 +296,7 @@ iteratively copies its cdr. When VECP is non-nil, copy vectors as well as conses." (if (and (atom obj) (or (not vecp) (not (vectorp obj)))) obj - (let ((copy (gethash obj hash-table nil))) + (let ((copy (gethash obj hash-table))) (unless copy (cond ((consp obj) @@ -315,7 +315,7 @@ vectors as well as conses." (testcover--copy-object1 rest vecp hash-table)) nil) ((gethash rest hash-table nil) - (setf (cdr current) (gethash rest hash-table nil)) + (setf (cdr current) (gethash rest hash-table)) nil) (t (setq current (setf (cdr current) (cons nil nil))))))))) |