Attachment #175363 for bug #213156

View | Details | Raw Unified | Return to bug 213156
Collapse All | Expand All

Lines 3-9 Link Here

(-)Makefile (-1 / +1 lines)
3		3
4	PORTNAME= riece	4	PORTNAME= riece
5	PORTVERSION= 9.0.0	5	PORTVERSION= 9.0.0
6	PORTREVISION= 3	6	PORTREVISION= 4
7	PORTEPOCH= 1	7	PORTEPOCH= 1
8	CATEGORIES= irc elisp	8	CATEGORIES= irc elisp
9	MASTER_SITES= SAVANNAH	9	MASTER_SITES= SAVANNAH




--- lisp/riece-highlight.el.orig	2011-04-04 06:43:24 UTC
+++ lisp/riece-highlight.el
@@ -194,8 +194,13 @@
   :group 'riece-highlight)
 
 (unless (riece-facep 'riece-modeline-current-face)
-  (make-face 'riece-modeline-current-face
-	     "Face used for displaying the current channel in modeline.")
+  ;; In Emacs, set-face-doc-string is an alias to
+  ;; set-face-documentation, but we use the former since it is
+  ;; available in both Emacs and XEmacs.
+  (make-face 'riece-modeline-current-face)
+  (set-face-doc-string
+   'riece-modeline-current-face
+   "Face used for displaying the current channel in modeline.")
   (if (featurep 'xemacs)
       (set-face-parent 'riece-modeline-current-face 'modeline))
   (set-face-foreground 'riece-modeline-current-face




--- lisp/riece-history.el.orig	2011-04-04 06:24:37 UTC
+++ lisp/riece-history.el
@@ -65,8 +65,13 @@
 (defvar riece-channel-list-history-face 'riece-channel-list-history-face)
 
 (unless (riece-facep 'riece-modeline-history-face)
-  (make-face 'riece-modeline-history-face
-	     "Face used for displaying history channels in modeline.")
+  ;; In Emacs, set-face-doc-string is an alias to
+  ;; set-face-documentation, but we use the former since it is
+  ;; available in both Emacs and XEmacs.
+  (make-face 'riece-modeline-history-face)
+  (set-face-doc-string
+   'riece-modeline-history-face
+   "Face used for displaying history channels in modeline.")
   (if (featurep 'xemacs)
       (set-face-parent 'riece-modeline-history-face 'modeline))
   (set-face-foreground 'riece-modeline-history-face




--- lisp/riece-unread.el.orig	2011-04-04 06:47:48 UTC
+++ lisp/riece-unread.el
@@ -60,8 +60,13 @@
 (defvar riece-channel-list-unread-face 'riece-channel-list-unread-face)
 
 (unless (riece-facep 'riece-modeline-unread-face)
-  (make-face 'riece-modeline-unread-face
-	     "Face used for displaying unread channels in modeline.")
+  ;; In Emacs, set-face-doc-string is an alias to
+  ;; set-face-documentation, but we use the former since it is
+  ;; available in both Emacs and XEmacs.
+  (make-face 'riece-modeline-unread-face)
+  (set-face-doc-string
+   'riece-modeline-unread-face
+   "Face used for displaying unread channels in modeline.")
   (if (featurep 'xemacs)
       (set-face-parent 'riece-modeline-unread-face 'modeline))
   (set-face-foreground 'riece-modeline-unread-face

Return to bug 213156

Line 0 Link Here

(-)files/patch-lisp_riece-highlight.el (+18 lines)
	1	--- lisp/riece-highlight.el.orig 2011-04-04 06:43:24 UTC
	2	+++ lisp/riece-highlight.el
	3	@@ -194,8 +194,13 @@
	4	:group 'riece-highlight)
	5
	6	(unless (riece-facep 'riece-modeline-current-face)
	7	- (make-face 'riece-modeline-current-face
	8	- "Face used for displaying the current channel in modeline.")
	9	+ ;; In Emacs, set-face-doc-string is an alias to
	10	+ ;; set-face-documentation, but we use the former since it is
	11	+ ;; available in both Emacs and XEmacs.
	12	+ (make-face 'riece-modeline-current-face)
	13	+ (set-face-doc-string
	14	+ 'riece-modeline-current-face
	15	+ "Face used for displaying the current channel in modeline.")
	16	(if (featurep 'xemacs)
	17	(set-face-parent 'riece-modeline-current-face 'modeline))
	18	(set-face-foreground 'riece-modeline-current-face

Line 0 Link Here

(-)files/patch-lisp_riece-history.el (+18 lines)
	1	--- lisp/riece-history.el.orig 2011-04-04 06:24:37 UTC
	2	+++ lisp/riece-history.el
	3	@@ -65,8 +65,13 @@
	4	(defvar riece-channel-list-history-face 'riece-channel-list-history-face)
	5
	6	(unless (riece-facep 'riece-modeline-history-face)
	7	- (make-face 'riece-modeline-history-face
	8	- "Face used for displaying history channels in modeline.")
	9	+ ;; In Emacs, set-face-doc-string is an alias to
	10	+ ;; set-face-documentation, but we use the former since it is
	11	+ ;; available in both Emacs and XEmacs.
	12	+ (make-face 'riece-modeline-history-face)
	13	+ (set-face-doc-string
	14	+ 'riece-modeline-history-face
	15	+ "Face used for displaying history channels in modeline.")
	16	(if (featurep 'xemacs)
	17	(set-face-parent 'riece-modeline-history-face 'modeline))
	18	(set-face-foreground 'riece-modeline-history-face

Line 0 Link Here

(-)files/patch-lisp_riece-unread.el (+18 lines)
	1	--- lisp/riece-unread.el.orig 2011-04-04 06:47:48 UTC
	2	+++ lisp/riece-unread.el
	3	@@ -60,8 +60,13 @@
	4	(defvar riece-channel-list-unread-face 'riece-channel-list-unread-face)
	5
	6	(unless (riece-facep 'riece-modeline-unread-face)
	7	- (make-face 'riece-modeline-unread-face
	8	- "Face used for displaying unread channels in modeline.")
	9	+ ;; In Emacs, set-face-doc-string is an alias to
	10	+ ;; set-face-documentation, but we use the former since it is
	11	+ ;; available in both Emacs and XEmacs.
	12	+ (make-face 'riece-modeline-unread-face)
	13	+ (set-face-doc-string
	14	+ 'riece-modeline-unread-face
	15	+ "Face used for displaying unread channels in modeline.")
	16	(if (featurep 'xemacs)
	17	(set-face-parent 'riece-modeline-unread-face 'modeline))
	18	(set-face-foreground 'riece-modeline-unread-face