Avoid using `case' in default value of defcustom

* lisp/org-ctags.el (org-ctags-path-to-ctags): Avoid usine `case'.
2013-05-12 06:08:09 +02:00 · 2013-05-12 06:08:09 +02:00 · ea98942eec
parent 4e0fad540f
commit ea98942eec
1 changed files with 2 additions and 5 deletions
--- 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)