projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Undo the last change.
[riece]
/
lisp
/
riece-xemacs.el
diff --git
a/lisp/riece-xemacs.el
b/lisp/riece-xemacs.el
index
3c5cf43
..
70735ac
100644
(file)
--- a/
lisp/riece-xemacs.el
+++ b/
lisp/riece-xemacs.el
@@
-122,6
+122,8
@@
(set-extent-properties extent properties)
(cons extent string)))
(set-extent-properties extent properties)
(cons extent string)))
+(defalias 'riece-normalize-modeline-string 'identity)
+
(defalias 'riece-facep 'find-face)
(defun riece-put-text-property-nonsticky (start end prop value
(defalias 'riece-facep 'find-face)
(defun riece-put-text-property-nonsticky (start end prop value
@@
-129,6
+131,12
@@
(add-text-properties start end (list prop value 'start-open t 'end-open t)
object))
(add-text-properties start end (list prop value 'start-open t 'end-open t)
object))
+(defun riece-recent-messages (n)
+ "Return N most recent messages, most recent first.
+If N is nil, all messages will be returned."
+ (with-output-to-string
+ (print-recent-messages n)))
+
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here