[Erc-help] Hacked erc-make-mode-line-buffer-name

[Arto J. <vi...@de...>]

(defun erc-make-mode-line-buffer-name (buffer)
  (let* ((map (make-sparse-keymap))
        (name2 (buffer-name buffer)) (num (string-match "-" name2)))
    (setq name (if num (concat (substring name2 0 2) 
        (substring name2 num (+ num 2))) (substring name2 0 3)))
    (define-key map (vector 'mode-line 'mouse-2)
      `(lambda (e)
         (interactive "e")
         (save-selected-window
           (select-window
            (posn-window (event-start e)))
           (switch-to-buffer ,buffer))))
    (put-text-property 0 (length name) 'local-map map name)
    name))


I look forward to hearing your comments of this.

-- 
Arto Jantunen