2008-03-26から1日間の記事一覧

riece-keywords に正規表現を

riece-keyword.el を眺めていたところ riece-keywords に正規表現が指定できる事に気付きました。 (defcustom riece-keywords nil "Keywords to be highlightened." :type '(repeat (choice (string :tag "Keyword") (cons (string :tag "Regexp") (integer …

特定のマイナモードが適用されているか判定する

d:id:antipop:20080317:1205766355 からのシングルカットです :p (defun minor-mode-applied-p (mode) (not (not (assoc-default mode (buffer-local-variables))))) マイナモードの実装に依っては望んだ結果が得られないかもしれません。手元の環境では大丈…

non-nil を t にする

(not (not 'non-nil)) ;;=> t

iTunes だけ日本語の UI で使いたい時のやや迂遠な方法

Terminal から iTunes を呼び出してる人用。ぼくの他に見たことないのですけれども。 PrevLangList=$(defaults read -globalDomain AppleLanguages); \ defaults write -globalDomain AppleLanguages '(ja)'; \ open -a iTunes; \ defaults write -globalDom…