ril 2011/02/28 21:20 便利なEmacs Lispをありがとうございます。
きちんとキルリングは保存されるのですが、起動時に、*Compile-Log*バッファにWarning: ad-Orig-kill-new called with 3 arguments, but accepts only 1-2と表示されるようになってしまいました。これは仕様なのでしょうか。

ril 2011/03/05 15:40 .emacsの中で、(require 'auto-install)を(require 'savekill)の前においていたことが問題だったようです。順序を逆にしたら表示されなくなりました。ありがとうございました。

tkf41 2011/12/23 07:38 とても便利に使わせてもらっていますが，時々、"mapcar: Wrong type argument: stringp, \.\.\."というエラーでkillできなくなります。 kill-ring の末尾を見ると \.\.\. という記号(""で囲まれていない)が入っていて、それが原因のようですが、なぜこんな要素が入っているのかは謎です。

*Backtrace* の中身は以下のような感じです。

Debugger entered--Lisp error: (wrong-type-argument stringp \.\.\.)
substring-no-properties(\.\.\.)
mapcar(substring-no-properties (#("text" 0 4 (fontified t face font-lock-comment-face)) ＜略＞ "outline-next-visible-heading" "lambda ()" \.\.\.))
save-kill-internal()
kill-new(#("text" 0 4 (fontified t face font-lock-comment-face)))
ad-Orig-copy-region-as-kill(159 163)
copy-region-as-kill(159 163)
kill-ring-save(159 163)
call-interactively(kill-ring-save nil nil)

tkf41 2012/01/04 07:11 rubikitchさん、ありがとうございます。 ~/.emacs.d/anything-c-adaptive-history はありませんでした。最新の anything.el に変えて様子を見てみます。

yibe 2012/02/03 20:44 (require 'savekill) しているファイルを Emacs 23.3.1 でバイトコンパイルした際に
ril さんと同様の警告が出たので、最小限のコードで再現を試みたところ、23.3.1 では
コンパイル中に `kill-new' へのアドバイスを活性化させるだけでこれが発生してしまう
ようです。（詳しく追ってないので不明ですが本体のバグかも。23.1.1 では発生せず）
次の内容のファイルを emacs -Q -batch -f batch-byte-compile した場合に発生します:

(eval-and-compile
(defadvice kill-new (after savekill activate)))

savekill.el のほうで activate フラグを `defadvice' するのと同時に指定せず、
定義後に `ad-activate' の第2引数に負数を指定して実行することで動作に影響なく
回避できるようです。

(defadvice kill-new (after savekill) ... )
(ad-activate 'kill-new -1)


それと id:tkf41 さんの症状は anything 以外の原因でも何かのはずみで
`print-length' が nil 以外になってしまっている場合に起こり得ることなので、
`prin1-to-string' を走らせる時に確実に `print-length' を nil に、
`print-level' も nil または 1 などに固定しておいたほうがいいと思います。

(let (print-length print-level)
(prin1-to-string '("abc" "def" "ghi")))
;=> "(\"abc\" \"def\" \"ghi\")"

(let ((print-length 2) (print-level 1))
(prin1-to-string '("abc" "def" "ghi")))
;=> "(\"abc\" \"def\" ...)"

(let ((print-length nil) (print-level 0))
(prin1-to-string '("abc" "def" "ghi")))
;=> "..."

tkf41 2012/03/30 02:34 save-kill-file-name で指定したファイル無い時に Emacs を起動するとエラーが出ます。 NOERROR を渡してみてはどうですか:

(add-hook 'after-init-hook (lambda () (load save-kill-file-name t)))

スパム対策のためのダミーです。もし見えても何も入力しないでください