summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ebuild-mode.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/ebuild-mode.el b/ebuild-mode.el
index 6116d4c..ca2913b 100644
--- a/ebuild-mode.el
+++ b/ebuild-mode.el
@@ -21,6 +21,9 @@
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+(defvar ebuild-mode-hook nil
+ "List of functions to call when entering ebuild-mode")
+
;;; Commentary:
;; The commands have been grouped into lists of rough similarity. If
@@ -30,7 +33,7 @@
;;; Code:
(defvar ebuild-mode-commands-0
- '("use" "has_version" "best_version" "use_with" "use_enable" "check_KV" "keepdir" "econf" "die" "einstall" "einfo" "ewarn" "eerror" "diropts" "dobin" "docinto" "dodoc" "doexe" "dohard" "dohtml" "doinfo" "doins" "dolib" "dolib.a" "dolib.so" "doman" "dosbin" "dosym" "emake" "exeinto" "exeopts" "fowners" "fperms" "insinto" "insopts" "into" "libopts" "newbin" "newexe" "newins" "newman" "newsbin" "prepall" "prepalldocs" "prepallinfo" "prepallman" "prepallstrip" "has" "unpack" "dopython" "dosed" "into" "doinitd" "doconfd" "doenvd" "dojar" "domo" "dodir" "ebegin" "eend" "newconfd" "newdoc" "newenvd" "newinitd" "newlib.a" "newlib.so" "hasq" "hasv" "useq" "usev"))
+ '("use" "has_version" "best_version" "use_with" "use_enable" "check_KV" "keepdir" "econf" "die" "einstall" "elog" "einfo" "ewarn" "eerror" "diropts" "dobin" "docinto" "dodoc" "doexe" "dohard" "dohtml" "doinfo" "doins" "dolib" "dolib.a" "dolib.so" "doman" "dosbin" "dosym" "emake" "exeinto" "exeopts" "fowners" "fperms" "insinto" "insopts" "into" "libopts" "newbin" "newexe" "newins" "newman" "newsbin" "prepall" "prepalldocs" "prepallinfo" "prepallman" "prepallstrip" "has" "unpack" "dopython" "dosed" "into" "doinitd" "doconfd" "doenvd" "dojar" "domo" "dodir" "ebegin" "eend" "newconfd" "newdoc" "newenvd" "newinitd" "newlib.a" "newlib.so" "hasq" "hasv" "useq" "usev"))
(defvar ebuild-mode-commands-1
'("addread" "addwrite" "adddeny" "addpredict"))
@@ -60,7 +63,10 @@
(add-hook 'write-file-functions 'delete-trailing-whitespace t t)
(add-hook 'write-file-functions 'ebuild-mode-tabify t t)
(setq tab-width 4
- indent-tabs-mode t))
+ indent-tabs-mode t)
+
+ ;; run user-defined hooks
+ (run-hooks 'ebuild-mode-hook))
(defvar eselect-mode-commands-0
'("die" "is_function" "has"))