*Backtrace*

_ google

なんか UTF-8 前提になってる？とりあえず手元の M-x google 環境をなおす。

(require 'browse-url)
(defun google-encoding (str)
  (require 'un-define)
  (setq str (encode-coding-string str 'utf-8))
  (let* ((len (length str))
	 (ret (make-string (* len 3) ?a))
	 (i 0) (j 0) char type)
    (while (< i len)
      (setq char (aref str i))
      (if (< char 126)
	  (aset ret j char)
	(aset ret j ?%)
	(setq j (1+ j))
	(aset ret j (aref "0123456789ABCDEF" (lsh char -4)))
	(setq j (1+ j))
	(aset ret j (aref "0123456789ABCDEF" (logand char 15))))
      (setq i (1+ i) j (1+ j)))
    (substring ret 0 j)))
;;;###autoload
(defun google (str)
  (interactive "sGoogle keyword: ")
  (browse-url
   (concat
    "http://www.google.com/search?q="
    (google-encoding str)
    "&hl;=ja&lr;=lang_ja")))
(provide 'google)

_ [URL] 愛三: 結線資料

[void GraphicWizardsLair( void ); //]

_ [URL] 名の読み方を変えたい

memo