projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-epg.el: New add-on.
[elisp/riece.git]
/
lisp
/
riece-message.el
diff --git
a/lisp/riece-message.el
b/lisp/riece-message.el
index
033c319
..
e32c45f
100644
(file)
--- a/
lisp/riece-message.el
+++ b/
lisp/riece-message.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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
;;; Code:
@@
-30,7
+30,7
@@
(require 'riece-misc)
(defgroup riece-message nil
(require 'riece-misc)
(defgroup riece-message nil
- "Messages"
+ "Display messages."
:tag "Message"
:prefix "riece-"
:group 'riece)
:tag "Message"
:prefix "riece-"
:group 'riece)
@@
-181,7
+181,7
@@
Normally they are *Dialogue* and/or *Others*."
"Display MESSAGE object."
(let ((functions riece-message-filter-functions))
(setq message (copy-sequence message))
"Display MESSAGE object."
(let ((functions riece-message-filter-functions))
(setq message (copy-sequence message))
- (while functions
+ (while (and functions message)
(setq message (funcall (car functions) message)
functions (cdr functions)))
(if message
(setq message (funcall (car functions) message)
functions (cdr functions)))
(if message