- (if (not (canna:memq-recursive 'mode-line-canna-mode mode-line-format))
- (setq-default
- mode-line-format
- (append (list (list 'minibuffer-window-selected
- (list 'display-minibuffer-mode-in-minibuffer
- "-" "m") "-")
- (list 'minibuffer-window-selected
- (list 'display-minibuffer-mode-in-minibuffer
- 'mode-line-canna-mode
- 'mode-line-canna-mode-in-minibuffer)
- 'mode-line-canna-mode))
- mode-line-format)))
- (mode-line-canna-mode-update mode-line-canna-mode) )
+ "Add string of Canna status into mode-line."
+ (cond (running-xemacs
+ (or (canna:memq-recursive 'mode-line-canna-mode
+ default-modeline-format)
+ (setq-default default-modeline-format
+ (nconc '("" mode-line-canna-mode)
+ default-modeline-format))
+ )
+ (mapcar (function
+ (lambda (buffer)
+ (save-excursion
+ (set-buffer buffer)
+ (or (canna:memq-recursive 'mode-line-canna-mode
+ modeline-format)
+ (setq modeline-format
+ (nconc '("" mode-line-canna-mode)
+ modeline-format))
+ )
+ )))
+ (buffer-list))
+ )
+ (t
+ (or (canna:memq-recursive 'mode-line-canna-mode mode-line-format)
+ (setq-default
+ mode-line-format
+ (append (list (list 'minibuffer-window-selected
+ (list 'display-minibuffer-mode-in-minibuffer
+ "-" "m") "-")
+ (list 'minibuffer-window-selected
+ (list 'display-minibuffer-mode-in-minibuffer
+ 'mode-line-canna-mode
+ 'mode-line-canna-mode-in-minibuffer)
+ 'mode-line-canna-mode))
+ mode-line-format))
+ )))
+ (mode-line-canna-mode-update mode-line-canna-mode))