Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge remote-tracking branch 'dotemacs/autoloads' into local

  • Loading branch information...
commit 8068421d404fc29ed995ac5c40f181df0634e62a 2 parents 0a95798 + d3f92f6
@yukio-goto yukio-goto authored
Showing with 18 additions and 18 deletions.
  1. +18 −18 egg.el
View
36 egg.el
@@ -6576,24 +6576,24 @@ egg in current buffer.\\<egg-minor-mode-map>
;;;###autoload
(defun egg-minor-mode-find-file-hook ()
(when (egg-is-in-git)
- (make-local-variable 'egg-minor-mode)
- (egg-minor-mode 1)))
-
-(when (string-match "\\`git version 1.\\(6\\|7\\)."
- (shell-command-to-string
- (concat egg-git-command " --version")))
- (or (assq 'egg-minor-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist)))
-
- (setcdr (or (assq 'egg-minor-mode minor-mode-map-alist)
- (car (setq minor-mode-map-alist
- (cons (list 'egg-minor-mode)
- minor-mode-map-alist))))
- egg-minor-mode-map)
-
- (add-hook 'find-file-hook 'egg-git-dir)
- (add-hook 'find-file-hook 'egg-minor-mode-find-file-hook))
+ (when (string-match "\\`git version 1.\\(6\\|7\\)."
+ (shell-command-to-string
+ (concat egg-git-command " --version")))
+ (or (assq 'egg-minor-mode minor-mode-alist)
+ (setq minor-mode-alist
+ (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist)))
+ (setcdr (or (assq 'egg-minor-mode minor-mode-map-alist)
+ (car (setq minor-mode-map-alist
+ (cons (list 'egg-minor-mode)
+ minor-mode-map-alist))))
+ egg-minor-mode-map)
+ (make-local-variable 'egg-minor-mode)
+ (egg-minor-mode 1))))
+
+;;;###autoload
+(add-hook 'find-file-hook 'egg-git-dir)
+;;;###autoload
+(add-hook 'find-file-hook 'egg-minor-mode-find-file-hook)
;;;========================================================
;;; tool-tip
Please sign in to comment.
Something went wrong with that request. Please try again.