- 281 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/10/17(水) 23:50:17 ID: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))))))
|
 |
