|
|
| Line 1: |
Line 1: |
| == defun ==
| |
| === say-ok-after-server-edit ===
| |
| <syntaxhighlight lang="elisp" line>
| |
| ;; 抄自 https://www.emacswiki.org/emacs/YesOrNoP，负作用不详，symbol-function 不懂
| |
| ;; 作用为：建议server-edit函数执行后的询问是否保存，一概选是
| |
| ;; (defadvice server-edit (around auto-confirm compile activate)
| |
| ;; (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest args) t))
| |
| ;; ((symbol-function 'y-or-n-p) (lambda (&rest args) t)))
| |
| ;; ad-do-it)
| |
| ;; (sanityinc/maybe-suspend-frame))
| |
|
| |
|
| (defadvice kill-current-buffer (around auto-confirm compile activate)
| |
| (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest args) t))
| |
| ((symbol-function 'y-or-n-p) (lambda (&rest args) t)))
| |
| ad-do-it)
| |
| (sanityinc/maybe-suspend-frame))
| |
| </syntaxhighlight>
| |
|
| |
| == mediawiki ==
| |
| <syntaxhighlight lang="elisp" line>
| |
| '(mediawiki-site-alist
| |
| '(("name" "http://n.n.n.n/mediawiki/" "user" "passwd" nil "Main Page")
| |
| ("name" "https://someplace.com/mediawiki/" "user" "passwd" nil "Main Page")))
| |
| </syntaxhighlight>
| |