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