Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Modified the mode so that autoloads work when installed via Melpa

egg-minor-mode-find-file-hook was not getting picked up when installing
via melpa. My modifications enable it to load.
  • Loading branch information...
commit d3f92f63946f16f6aef2c0410a4c9753afd1a6d9 1 parent 1570310
dotemacs authored

Showing 1 changed file with 18 additions and 18 deletions. Show diff stats Hide diff stats

  1. 36  egg.el
36  egg.el
@@ -6559,24 +6559,24 @@ egg in current buffer.\\<egg-minor-mode-map>
6559 6559
 ;;;###autoload
6560 6560
 (defun egg-minor-mode-find-file-hook ()
6561 6561
   (when (egg-is-in-git)
6562  
-    (make-local-variable 'egg-minor-mode)
6563  
-    (egg-minor-mode 1)))
6564  
-
6565  
-(when (string-match "\\`git version 1.\\(6\\|7\\)."
6566  
-		    (shell-command-to-string
6567  
-		     (concat egg-git-command " --version")))
6568  
-  (or (assq 'egg-minor-mode minor-mode-alist)
6569  
-      (setq minor-mode-alist
6570  
-            (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist)))
6571  
-
6572  
-  (setcdr (or (assq 'egg-minor-mode minor-mode-map-alist)
6573  
-              (car (setq minor-mode-map-alist
6574  
-                         (cons (list 'egg-minor-mode)
6575  
-                               minor-mode-map-alist))))
6576  
-          egg-minor-mode-map)
6577  
-
6578  
-  (add-hook 'find-file-hook 'egg-git-dir)
6579  
-  (add-hook 'find-file-hook 'egg-minor-mode-find-file-hook))
  6562
+    (when (string-match "\\`git version 1.\\(6\\|7\\)."
  6563
+                        (shell-command-to-string
  6564
+                         (concat egg-git-command " --version")))
  6565
+      (or (assq 'egg-minor-mode minor-mode-alist)
  6566
+          (setq minor-mode-alist
  6567
+                (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist)))
  6568
+      (setcdr (or (assq 'egg-minor-mode minor-mode-map-alist)
  6569
+                  (car (setq minor-mode-map-alist
  6570
+                             (cons (list 'egg-minor-mode)
  6571
+                                   minor-mode-map-alist))))
  6572
+              egg-minor-mode-map)
  6573
+      (make-local-variable 'egg-minor-mode)
  6574
+      (egg-minor-mode 1))))
  6575
+
  6576
+;;;###autoload
  6577
+(add-hook 'find-file-hook 'egg-git-dir)
  6578
+;;;###autoload
  6579
+(add-hook 'find-file-hook 'egg-minor-mode-find-file-hook)
6580 6580
 
6581 6581
 ;;;========================================================
6582 6582
 ;;; tool-tip

0 notes on commit d3f92f6

Please sign in to comment.
Something went wrong with that request. Please try again.