[Date Prev][Date Next][Thread Prev][][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>