Emacs

シングルクォートで括れば、なんでも実行できるな。

% emacs -q –no-site-file -batch -eval ‘(message (getenv “HOME”))’

文字列の置換 "hogehoge," => "hogehoge"

(let ((str "hogehoge,") (regexp ",$") (newstr "")) (cond ((eq emacs-major-version 21) (replace-regexp-in-string regexp newstr str)) ((eq emacs-major-version 20) (progn (string-match regexp str) (replace-match newstr nil nil str))) ((eq emacs-major-version 19) (progn (require 'dired) (dired-replace-in-string regexp newstr str)))))

M-x list-load-path-shadows

ファイル名がかぶっていて、loadされないファイルを表示する。

関数の実体を表示する。

(symbol-function 'MEW-TO) => (lambda nil (aref mew-vec 5))

play-sound()

GNU-Emacs 21.2.93 だと音を鳴らせるようだ。 (play-sound '(sound :file "~/Mail/email.wav"))

call-process()

call-process()でファイル名等を渡す時は expand-file-name()しなければならない。

edebug-def-mark

*scratch* バッファで edebug-defun() すると、edebug-def-mark がないと言われるときがある。

「このいいソフト。」 => 「このソフトはいい。」

(query-replace-regexp "\$いい\\|わるい\$\$.+?\$。" "\\2は\\1。")

shell-mode でパスワードが丸見えになってしまう

プロンプトが出たら M-x send-invisible してパスワードを打つ。

animate.el

M-x animate-birthday-present [Enter] マスタカ [Enter] ;; *scratch* バッファで、以下をコピペ。最後の ")" の後ろで Ctrl-j (animate-string "キタ━━━━━━(゜∀゜)━━━━━━ !!!!!" 13 0)