*Article*

 cvs update: move away filename; it is in the way
 C filename

(defadvice format-buffers-tab-line
  (around w3m-xmas-show-current-title-in-buffer-tab (buffer) activate)
  "Advised by Emacs-W3M.
Show the current title string in the buffer tab.  Unfortunately,
existing XEmacs does not support showing non-ascii characters.  When a
title contains non-ascii characters, show a url name by default."
  (with-current-buffer buffer
    (if (and w3m-xmas-show-current-title-in-buffer-tab
	     (symbol-value 'gutter-buffers-tab-enabled)
	     (eq 'w3m-mode major-mode))
	(let* ((len (specifier-instance
		     (symbol-value 'buffers-tab-default-buffer-line-length)))
	       (name (symbol-value 'w3m-current-title))
	       (num (if (string-match ".*<\\(.+\\)>$" (buffer-name buffer))
			(match-string 1 (buffer-name buffer))))
	       (lnum (length num)))
	  (setq ad-return-value
		(if num
		    (if (and (> len 0)
			     (> (+ (length name) lnum) len))
			(concat "[" num "]"
				(substring name 0 (max 0 (- len lnum 5 )))
				"...")
		      (concat "[" num "]" name))
		  (if (and (> len 0)
			   (> (length name) len))
		      (concat (substring name 0 (max 0 (- len 3))) "...")
		    name))))
      ad-do-it)))

 あのな、motif なんてきょうび流行んねーんだよ。ボケが。
 得意げな顔して何が、motif で、だ。
 お前は本当に motif を使いたいのかと問いたい。問い詰めたい。小１時間問い詰めたい。
 お前、motif って言いたいだけちゃうんかと。
 ToolKit 通の俺から言わせてもらえば今、ToolKit 通の間での最新流行はやっぱり、
 GTK+、これだね。
 Ruby/GTK。これが通の使い方。
 GTK+ ってのは Widget が多めに入ってる。そん代わり互換性が少なめ。これ。
 で、それに Ruby。これ最強。
 しかしこれを使うとレビジョンを上げるとコード書換えが必要となる危険も伴う、諸刃の剣。
 素人にはお薦め出来ない。
 まあお前らド素人は、tcl/tk でも使ってなさいってこった。