<< 過去の記事(艦むすって人間なの？) | 未来の記事(今日の成果) >>

parmalink Tags: このエントリーをはてなブックマークに追加

emacs 24.4 にアップデートが来てたので更新。

いくつかのelisp に問題が起きたり、あたらしい機能が入ったりしたらしいので、とりあえずいくつか。

(setq load-prefer-newer t)

(setq load-prefer-newer t)

Emacs 24.4リリース！ファーストインプレッション | るびきち「日刊Emacs」 load-prefer-newer: バイトコンパイル忘れでハマることはもうない

新しい方を読んでくれるらしい。

【対処療法的解決？】scratch-log.el

スクラッチバッファを安心して利用できるようにする拡張をつくった - わからん

個人的に必須elisp

なにやらエラーが出てるけどよくわからん。
sl-dump-scratch-for-timer() は定期的に*scratch* を保存してくれる関数っぽい。
sl-dump-scratch-when-kill-emacs とかが取り敢えず終了時に保存してくれるらしいので気にしないでいいのかな……

Debugger entered--Lisp error: (args-out-of-range 0 51640)
  compare-buffer-substrings(# 0 51640 # 0 51640)
  sl-need-to-save()
  sl-dump-scratch-for-timer()
  apply(sl-dump-scratch-for-timer nil)
  byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 0 30 0 t sl-dump-scratch-for-timer nil idle 0])

さっきのページからリンクされているhttps://github.com/wakaran/scratch-log、Github のアカウントごと消えてるっぽいので、elisp はGPL になっているので再配布とりあえずしておきます。ここ

追記1 10/23 00:20

https://gist.github.com/nna774/c2f68062ed762c4c55e5#file-scratch-log-el-L90-L91
90行目, 91行目の

(current-buffer) 0 (point-max)
it 0 scratch-point-max)

にある二つの0 を共に1 にしたらエラーは出なくなった。
*Scratch* の最初の一文字目だけの変更が検知されなくなりそうだけど、 一文字目だけの変更に気付かずに定期的に保存されるのと、エラーで定期的に保存されないのなら まだ前者のほうがマシに思うので、とりあえずこうしておこうと思う……。

追記2 10/26 23:55

このようなリプライを頂いた

scratch-log.el のレポジトリは、削除されたのではなくmori-dev/scratch-log へと移動していたらしい。

また、追記1 で行なった変更についても教えていただいた。

更にPR の形にして投げてくださいました。ありがとうございます！
mori-dev/scratch-log#9 Fix running timer error

【解決】zlc.el

mooz/emacs-zlc

補完をいいかんじにやってくれるelisp なのですが、24.4 に上げた瞬間からうまくうごきません……

Debugger entered--Lisp error: (wrong-number-of-arguments (2 . 4) 0)
  completion--do-completion()
  zlc-minibuffer-complete()
  (if zlc--mode (zlc-minibuffer-complete) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function))))
  (let (ad-return-value) (if zlc--mode (zlc-minibuffer-complete) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function)))) ad-return-value)
  ad-Advice-minibuffer-complete(#[0 "\302\303 d	$\207" [minibuffer-completion-table minibuffer-completion-predicate completion-in-region minibuffer-prompt-end] 5 1938442 nil])
  apply(ad-Advice-minibuffer-complete #[0 "\302\303 d	$\207" [minibuffer-completion-table minibuffer-completion-predicate completion-in-region minibuffer-prompt-end] 5 1938442 nil] nil)
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  command-execute(minibuffer-complete)
  read-from-minibuffer("Find file: " "~/" (keymap (keymap (32)) keymap (7 . minibuffer-keyboard-quit) (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (7 . minibuffer-keyboard-quit) (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keymap (6 . zlc-select-next) (2 . zlc-select-previous) (14 . zlc-select-next-vertical) (16 . zlc-select-previous-vertical) (left . zlc-select-previous) (right . zlc-select-next) (S-tab . zlc-select-previous) (backtab . zlc-select-previous) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "
" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . minibuffer-keyboard-quit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . zlc-select-previous-vertical) (prior . previous-history-element) (XF86Forward . next-history-element) (down . zlc-select-next-vertical) (next . next-history-element) (27 keymap (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil file-name-history "~/" nil)
  completing-read-default("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/" file-name-history "~/" nil)
  completing-read("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/" file-name-history "~/")
  read-file-name-default("Find file: " nil "~/" confirm-after-completion nil nil)
  read-file-name("Find file: " nil "~/" confirm-after-completion)
  find-file-read-args("Find file: " confirm-after-completion)
  byte-code("\300\301\302 \"\207" [find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)
  call-interactively(find-file nil nil)
  command-execute(find-file)

追記 10/22 23:50

Twitter で治しかたを教えていただきました。
その人のツイートは既に削除されているので、方法だけ載せておきます。

zlc-minibuffer-complete の(completion--do-completion) を (completion--do-completion (minibuffer-prompt-end) (point-max)) にすれば動くようになりました。

https://github.com/nna774/emacs-zlc/commit/e57daf87987bb0b49af2e2323b787bd3e9e58cbc

共になんとかする方法がわかったら追記します。
誰かなんとかする方法がわかる人、教えてください。。。 > @nonamea774 or nonamea774@gmail.com

memo

書いとかないとぜったい忘れるのでメモ

スタックトレースを出してほしい時は

M-x toggle-debug-on-error

<< 過去の記事(艦むすって人間なの？) | 未来の記事(今日の成果) >>