Meadowについて語ってくれなスレ 7

Meadowについて語って ..

281:名無しさん＠お腹いっぱい。
07/10/17 23:50:17 pzi4ZKX00
meadow\packages\default.elが犯人ですた。あほか。
(when (featurep 'meadow)
(defadvice emacs-version (after emacs-version-after activate)
"Add svn revison to emacs-version(f)"
(let ((info (expand-file-name "../.svn.info" data-directory))
str)
(when (file-exists-p info)
(save-excursion
(set-buffer (find-file-noselect info))
(setq str (buffer-substring-no-properties
(point-min) (- (point-max) 1)))
(kill-buffer nil))
(setq ad-return-value (concat ad-return-value "\n" str))))))

次ページ

続きを表示

1を表示