diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-05-12 06:08:09 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-05-12 06:08:09 +0200 |
commit | ea98942eecef728de686851fa617140aa5cd3930 (patch) | |
tree | dc756e3aaf0391773f93a8487a8bf03764eac79d | |
parent | 4e0fad540f3a250df12d60cf304347a38537b56f (diff) | |
download | org-mode-ea98942eecef728de686851fa617140aa5cd3930.tar.gz |
Avoid using `case' in default value of defcustom
* lisp/org-ctags.el (org-ctags-path-to-ctags): Avoid usine `case'.
-rw-r--r-- | lisp/org-ctags.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/org-ctags.el b/lisp/org-ctags.el index 833c1dd..98d47e5 100644 --- a/lisp/org-ctags.el +++ b/lisp/org-ctags.el @@ -156,11 +156,8 @@ Format is: /REGEXP/TAGNAME/FLAGS,TAGTYPE/ See the ctags documentation for more information.") (defcustom org-ctags-path-to-ctags - (case system-type - (windows-nt "ctags.exe") - (darwin "ctags-exuberant") - (t "ctags-exuberant")) - "Full path to the ctags executable file." + (if (executable-find "ctags-exuberant") "ctags-exuberant" "ctags") + "Name of the ctags executable file." :group 'org-ctags :version "24.1" :type 'file) |