[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: point-at-eol
>>>>> In [emacs-w3m : No.02022]
>>>>> TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:
土屋さん> うん? とすると、単純に (point-at-eol) を (line-end-position)
土屋さん> で置き換えてしまえば良いような気がするのですが、どうでしょう
土屋さん> か。
大当たり!
ただ、あのままだとぼくの config の場合は w3m-accept-languages の
値が "" になってしまうので、こんなんで良いでしょうか?
(defcustom w3m-accept-languages
(or (let ((file (expand-file-name "config" w3m-profile-directory)))
(when (file-readable-p file)
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(when (re-search-forward "^accept_language[\t ]+\\(.+\\)$" nil t)
(delete "" (split-string (match-string 1)))))))
(when (string= w3m-language "Japanese")
'("ja" "en")))
"*Prioirity for acceptable languages."
:group 'w3m
:type '(repeat string))
;; ここに書いてどうする → 自分 ^^;;
土屋さん> ;; (point-at-eol) で覚えてしまっている、私の再教育が必要です
土屋さん> ;; ね。
;; XEmacs 使いとしてははからずも洗脳が行き渡っていることに満足し
;; ていたりして。:-p
--
Katsumi Yamaoka <yamaoka@namazu.org>