dickmao
/
nndiscourse
Protected
1
1
0
Fork 1
Code Issues 1 Pull Requests 1 Packages Projects Releases Wiki Activity

fix trivial issues #2

Merged
conao3 merged 3 commits from feature into master 2020-02-14 17:19:43 +00:00
Conversation 1 Commits 3 Files Changed 1
1 changed files with 155 additions and 155 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
nndiscourse.el
View File

@ -122,7 +122,7 @@ Starting in emacs-src commit c1b63af, Gnus moved from obarrays to normal hashtab
Starting in emacs-src commit c1b63af, Gnus moved from obarrays to normal hashtables."
(declare (indent defun))
(unless (stringp string)
(setq string (format "%s" string)))
(setq string (prin1-to-string string)))
(let* ((capture (nndiscourse--gethash string hashtable))
(replace-with (funcall func capture)))
(if (fboundp 'gnus-sethash)
@ -462,7 +462,7 @@ Return PROC if success, nil otherwise."
(defun nndiscourse-deregister-process (server)
"Disavow any knowledge of SERVER's process."
(aif (nndiscourse-alist-get server nndiscourse-processes nil nil #'equal)
(awhen (nndiscourse-alist-get server nndiscourse-processes nil nil #'equal)
(let ((proc (nndiscourse-proc-info-process it)))
(gnus-message 5 "`nndiscourse-deregister-process': deregistering %s %s pid=%s"
server (process-name proc) (process-id proc))
@ -471,7 +471,7 @@ Return PROC if success, nil otherwise."
(deffoo nndiscourse-close-server (&optional server _defs)
"Patterning after nnimap.el."
(aif (nndiscourse--server-buffer server)
(awhen (nndiscourse--server-buffer server)
(kill-buffer it))
(when (nnoo-change-server 'nndiscourse server nil)
(nnoo-close-server 'nndiscourse server)