diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-03-29 12:34:37 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-03-29 14:59:09 +0100 |
| commit | 14cf4d538350fd2b1eda35101f5bb585f55e4659 (patch) | |
| tree | a635cc599694511b26a89e777733b9456fd722e3 /lisp/emacs-lisp/edebug.el | |
| parent | bfabae993113aa0a35298950355333497bc0d485 (diff) | |
| download | emacs-14cf4d538350fd2b1eda35101f5bb585f55e4659.tar.gz emacs-14cf4d538350fd2b1eda35101f5bb585f55e4659.tar.bz2 emacs-14cf4d538350fd2b1eda35101f5bb585f55e4659.zip | |
Remove redundant constant nil argument to gethash
* lisp/cedet/ede/files.el (ede--directory-project-from-hash):
* lisp/emacs-lisp/edebug.el (edebug-unwrap*):
* lisp/emacs-lisp/testcover.el (testcover--copy-object1):
* lisp/net/zeroconf.el (zeroconf-get-service, zeroconf-resolve-service)
(zeroconf-register-service-browser, zeroconf-service-browser-handler)
(zeroconf-register-service-resolver):
* lisp/url/url-history.el (url-have-visited-url): Remove redundant
constant nil argument to gethash.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 6 |
1 files changed, 3 insertions, 3 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))))))))))) |