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/testcover.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/testcover.el')
| -rw-r--r-- | lisp/emacs-lisp/testcover.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))))))))) |