[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

w3m version w3m/0.3.2.2-stable-m17n-20021207



mew-dist で話があったのですが、

% w3m -version
w3m version w3m/0.3.2.2-stable-m17n-20021207, options lang=en,m17n,image,color,ansi-color,mouse,sysmouse,menu,cookie,ssl,ssl-verify,external-uri-loader,w3mmailer,nntp,gopher,ipv6,alarm,mark

の様に stable が入っている w3m-m17n の自動認識が出来ていなかった
ので変更しておきました。

(let ((commands '("/usr/local/bin/w3m" "/usr/local/bin/w3m-m17n"
		  "/usr/local/bin/w3m-m17n-stable"
		  "/usr/local/bin/w3mmee" "/usr/local/bin/w3mmee-nomoe"))
      command)
  (while (setq command (car commands))
    (with-temp-buffer
      (call-process command nil t nil "-version")
      (goto-char (point-min))
      (when (re-search-forward "version \\(w3m/0\\.3\
\\(\\.[0-9\\]\\)*\\(\\+cvs\\(-[0-9]+\\.[0-9]+\\)?\\)?\
\\(-inu\\|\\(\\(-stable\\)?-m17n\\|\\(\\+mee\\)\\)\\)?[^,]*\\)" nil t)  ;; 変更
	(setq hogev (match-string 1))
	(setq hogec
	      (cond
	       ((match-string 8) 'w3mmee)	;; 変更
	       ((match-beginning 6) 'w3m-m17n) 
	       ((match-beginning 1) 'w3m)
	       (t 'other)))))
    (insert (format "com: %s,\tver: %s,\ttype: %s\n"
		    command hogev hogec))
    (setq commands (cdr commands))))

com: /usr/local/bin/w3m,	ver: w3m/0.3.2.2+cvs-1.625,	type: w3m
com: /usr/local/bin/w3m-m17n,	ver: w3m/0.3.2.2+cvs-1.599-m17n-20021207,	type: w3m-m17n
com: /usr/local/bin/w3m-m17n-stable,	ver: w3m/0.3.2.2-stable-m17n-20021207,	type: w3m-m17n
com: /usr/local/bin/w3mmee,	ver: w3m/0.3.2+mee-p24-18+moe-1.5.3,	type: w3mmee
com: /usr/local/bin/w3mmee-nomoe,	ver: w3m/0.3.2+mee-p24-18,	type: w3mmee

## nomoe は 'w3m が良いかも(けどまぁいいか)

P.S
info は年末年始休暇まで待ってくださいませ。(_ _)

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)