diff options
| author |   Ulrich Müller <ulm@gentoo.org> | 2007-11-11 20:47:43 +0000 |
|---|---|---|
| committer | Ulrich Müller <ulm@gentoo.org> | 2007-11-11 20:47:43 +0000 |
| commit | a3ff6cf5ba4b8e8bfd50043417201985542c7b7a (patch) | |
| tree | 1317ac25a539d2c762a309255ecb3e19dca09d79 | |
| parent | Ditto for eselect-mode. (diff) | |
| download | ebuild-mode-a3ff6cf5ba4b8e8bfd50043417201985542c7b7a.tar.gz ebuild-mode-a3ff6cf5ba4b8e8bfd50043417201985542c7b7a.tar.bz2 ebuild-mode-a3ff6cf5ba4b8e8bfd50043417201985542c7b7a.zip | |
New variable ebuild-commands-list, replaces previous alist.
Add local variables block to declare utf-8 encoding.
svn path=/emacs-extra/gentoo-syntax/; revision=741
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | gentoo-syntax.el | 21 |
2 files changed, 17 insertions, 7 deletions
@@ -2,6 +2,9 @@ * gentoo-syntax.el (ebuild-mode): Set shell to bash. (eselect-mode): Ditto. + (ebuild-commands-list): New variable, replaces previous alist. + (ebuild-run-command): Use it. + Add local variables block to declare utf-8 encoding. 2007-10-22 Ulrich Mueller <ulm@gentoo.org> diff --git a/gentoo-syntax.el b/gentoo-syntax.el index 9524956..6e4751a 100644 --- a/gentoo-syntax.el +++ b/gentoo-syntax.el @@ -642,18 +642,21 @@ A formfeed is not considered whitespace by this function." (setq tab-width 4) (setq indent-tabs-mode t)) -(defvar ebuild-commands-alist - (mapcar 'list - '("help" "setup" "fetch" "digest" "manifest" "unpack" "compile" - "test" "preinst" "postinst" "install" "qmerge" "merge" - "prerm" "postrm" "unmerge" "config" "package" "rpm" "clean"))) + +;;; Run ebuild command. + +(defvar ebuild-commands-list + '("help" "setup" "fetch" "digest" "manifest" "unpack" "compile" + "test" "preinst" "postinst" "install" "qmerge" "merge" + "prerm" "postrm" "unmerge" "config" "package" "rpm" "clean")) ;;;###autoload (defun ebuild-run-command (command) "Run ebuild COMMAND, with output to a compilation buffer." (interactive - (list (completing-read - "Run ebuild command: " ebuild-commands-alist nil t))) + (list (completing-read "Run ebuild command: " + (mapcar 'list ebuild-commands-list) + nil t))) (or (assoc command ebuild-commands-alist) (error "Ebuild command \"%s\" not known" command)) (let ((process-environment @@ -686,4 +689,8 @@ A formfeed is not considered whitespace by this function." (provide 'gentoo-syntax) (provide 'ebuild-mode) ; backwards compatibility +;; Local Variables: +;; coding: utf-8 +;; End: + ;;; gentoo-syntax.el ends here |