Mercurial > emacs
comparison lisp/cedet/ede/system.el @ 104503:c433f076710b
* cedet/ede/system.el: Add local vars for autoloading.
(ede-vc-project-directory): Autoload.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 20 Sep 2009 22:08:24 +0000 |
| parents | 8c4870c15962 |
| children | fbd55cc47b77 |
comparison
equal
deleted
inserted
replaced
| 104502:cdbbb89893d5 | 104503:c433f076710b |
|---|---|
| 124 ) | 124 ) |
| 125 | 125 |
| 126 ;;; Version Control | 126 ;;; Version Control |
| 127 ;; | 127 ;; |
| 128 ;; Do a few nice things with Version control systems. | 128 ;; Do a few nice things with Version control systems. |
| 129 | |
| 130 ;;;###autoload | |
| 129 (defun ede-vc-project-directory () | 131 (defun ede-vc-project-directory () |
| 130 "Run `vc-dir' on the current project." | 132 "Run `vc-dir' on the current project." |
| 131 (interactive) | 133 (interactive) |
| 132 (let ((top (ede-toplevel-project-or-nil default-directory))) | 134 (let ((top (ede-toplevel-project-or-nil default-directory))) |
| 133 (vc-dir top nil))) | 135 (vc-dir top nil))) |
| 134 | 136 |
| 135 (provide 'ede/system) | 137 (provide 'ede/system) |
| 136 | 138 |
| 139 ;; Local variables: | |
| 140 ;; generated-autoload-file: "loaddefs.el" | |
| 141 ;; generated-autoload-feature: ede/loaddefs | |
| 142 ;; generated-autoload-load-name: "ede/system" | |
| 143 ;; End: | |
| 144 | |
| 137 ;;; ede/system.el ends here | 145 ;;; ede/system.el ends here |