projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-commands.el (riece-command-close-server): Cause error
[riece]
/
lisp
/
riece-mini.el
diff --git
a/lisp/riece-mini.el
b/lisp/riece-mini.el
index
df08384
..
4a19a72
100644
(file)
--- a/
lisp/riece-mini.el
+++ b/
lisp/riece-mini.el
@@
-18,8
+18,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-58,8
+58,6
@@
(defvar riece-mini-backlog-history nil)
(defvar riece-mini-backlog-shown nil)
(defvar riece-mini-backlog-history nil)
(defvar riece-mini-backlog-shown nil)
-(defvar riece-mini-enabled nil)
-
(defconst riece-mini-description
"Use Riece only on the minibuffer.")
(defconst riece-mini-description
"Use Riece only on the minibuffer.")
@@
-84,7
+82,7
@@
(cdr riece-mini-backlog-history)))
(setq riece-mini-backlog-history
(reverse (cons string (reverse riece-mini-backlog-history))))
(cdr riece-mini-backlog-history)))
(setq riece-mini-backlog-history
(reverse (cons string (reverse riece-mini-backlog-history))))
- (when (and
riece-mini-enabled
+ (when (and
(get 'riece-mini 'riece-addon-enabled)
(not (or (eq (window-buffer (selected-window))
(get-buffer riece-command-buffer))
(riece-message-own-p message)
(not (or (eq (window-buffer (selected-window))
(get-buffer riece-command-buffer))
(riece-message-own-p message)
@@
-130,7
+128,7
@@
If twice (C-u C-u), then ask the channel."
(resize-mini-windows t))
(setq riece-mini-backlog-shown t)
(when (and (memq 'riece-biff riece-addons)
(resize-mini-windows t))
(setq riece-mini-backlog-shown t)
(when (and (memq 'riece-biff riece-addons)
-
riece-biff-enabled
)
+
(get 'riece-biff 'riece-addon-enabled)
)
(riece-biff-clear))
(riece-mini-message-no-log
"%s" (mapconcat #'identity riece-mini-backlog-history "\n"))))))
(riece-biff-clear))
(riece-mini-message-no-log
"%s" (mapconcat #'identity riece-mini-backlog-history "\n"))))))
@@
-150,11
+148,10
@@
If twice (C-u C-u), then ask the channel."
'riece-mini-display-message-function)
(add-hook 'pre-command-hook 'riece-mini-pre-command))
'riece-mini-display-message-function)
(add-hook 'pre-command-hook 'riece-mini-pre-command))
-(defun riece-mini-enable ()
- (setq riece-mini-enabled t))
-
-(defun riece-mini-disable ()
- (setq riece-mini-enabled nil))
+(defun riece-mini-uninstall ()
+ (remove-hook 'riece-after-display-message-functions
+ 'riece-mini-display-message-function)
+ (remove-hook 'pre-command-hook 'riece-mini-pre-command))
(provide 'riece-mini)
(provide 'riece-mini)