projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update FSF's address.
[riece]
/
lisp
/
riece-mini.el
diff --git
a/lisp/riece-mini.el
b/lisp/riece-mini.el
index
fcadb6b
..
4a19a72
100644
(file)
--- a/
lisp/riece-mini.el
+++ b/
lisp/riece-mini.el
@@
-1,4
+1,4
@@
-;;; riece-mini.el ---
"riece on minibuffer" add-on
+;;; riece-mini.el ---
use Riece only on the minibuffer
;; Copyright (C) 2003 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
;; Copyright (C) 2003 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
@@
-18,11
+18,13
@@
;; 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:
+;; NOTE: This is an add-on module for Riece.
+
;; This add-on shows arrival messages to minibuffer. And you can send
;; message using minibuffer.
;;
;; This add-on shows arrival messages to minibuffer. And you can send
;; message using minibuffer.
;;
@@
-44,7
+46,7
@@
(require 'riece-biff)
(defgroup riece-mini nil
(require 'riece-biff)
(defgroup riece-mini nil
- "
Riece on
minibuffer."
+ "
Use Riece only on the
minibuffer."
:group 'riece)
(defcustom riece-mini-backlog-size 5
:group 'riece)
(defcustom riece-mini-backlog-size 5
@@
-56,10
+58,8
@@
(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
(defconst riece-mini-description
- "
Send arrival messages to minibuffer
")
+ "
Use Riece only on the minibuffer.
")
(defun riece-mini-message-no-log (string &rest args)
"Like `message', except that message logging is disabled."
(defun riece-mini-message-no-log (string &rest args)
"Like `message', except that message logging is disabled."
@@
-82,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)
@@
-128,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"))))))
@@
-148,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)