Fix some checkdock warnings

master
Elis Hirwing 8 years ago
parent 2da60b8857
commit 9972cf4634
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
  1. 16
      webpaste.el

@ -161,15 +161,13 @@ the docs for `webpaste--provider'."
;; modified from https://emacs.stackexchange.com/a/33893/12534 ;; modified from https://emacs.stackexchange.com/a/33893/12534
(defun webpaste--alist-set (key val alist) (defun webpaste--alist-set (key val alist)
"Set property KEY to VAL in ALIST. Return new alist. "Set property KEY to VAL in ALIST.
This creates the association if it is missing, and otherwise sets Return new alist. This creates the association if it is missing, and otherwise
the cdr of the first matching association in the list. It does sets the cdr of the first matching association in the list. It does not create
not create duplicate associations. Key comparison is done with duplicate associations. Key comparison is done with `equal'.
`equal'.
This method may mutate the original alist, but you still need to use the return
This method may mutate the original alist, but you still need to value of this method instead of the original alist, to ensure correct results."
use the return value of this method instead of the original
alist, to ensure correct results."
(let ((pair (assoc key alist))) (let ((pair (assoc key alist)))
(if pair (if pair
(setcdr pair val) (setcdr pair val)

Loading…
Cancel
Save