X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-highlight.el;h=8eefc61c114aeb283275c71160ce2325bb56e919;hp=addb260ad2a882cffe7f640f02744fb5fb2251fc;hb=9d07d031bbdb5e1ddc07f464c92f29204297622d;hpb=4bbf0d678d33ba4aafa5aa6ac458765774bee963 diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el index addb260..8eefc61 100644 --- a/lisp/riece-highlight.el +++ b/lisp/riece-highlight.el @@ -162,10 +162,10 @@ (defface riece-channel-list-current-face '((((class color) (background dark)) - (:foreground "PaleTurquoise" :underline t)) + (:foreground "turquoise" :underline t)) (((class color) (background light)) - (:foreground "ForestGreen" :underline t)) + (:foreground "SeaGreen" :underline t)) (t ())) "Face used for displaying the current channel." @@ -221,24 +221,6 @@ (if (looking-at riece-prefix-regexp) (put-text-property (match-beginning 1) (match-end 1) 'invisible t)))) -(defun riece-channel-list-mark-current-channel (last) - (if (and riece-channel-list-buffer-mode - riece-current-channel) - (save-excursion - (set-buffer riece-channel-list-buffer) - (let ((inhibit-read-only t) - buffer-read-only) - (goto-char (point-min)) - (if (re-search-forward "^\\( ?[0-9]+:\\)\\*" nil t) - (replace-match "\\1 ")) - (goto-char (point-min)) - (if (re-search-forward - (concat - "^\\( ?[0-9]+:\\).\\(" - (regexp-quote (riece-format-identity riece-current-channel)) - "\\)$") nil t) - (replace-match "\\1*\\2")))))) - (defun riece-channel-list-turn-on-font-lock () (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(riece-channel-list-font-lock-keywords t)) @@ -262,8 +244,6 @@ 'riece-dialogue-schedule-turn-on-font-lock) (put 'riece-channel-list-mode 'font-lock-defaults '(riece-channel-list-font-lock-keywords t)) - (add-hook 'riece-after-switch-to-channel-functions - 'riece-channel-list-mark-current-channel) (add-hook 'riece-after-load-startup-hook 'riece-channel-list-schedule-turn-on-font-lock))