From ea98942eecef728de686851fa617140aa5cd3930 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sun, 12 May 2013 06:08:09 +0200
Subject: [PATCH] Avoid using `case' in default value of defcustom

* lisp/org-ctags.el (org-ctags-path-to-ctags): Avoid usine `case'.
---
 lisp/org-ctags.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/org-ctags.el b/lisp/org-ctags.el
index 833c1dd6c..98d47e5f5 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)
-- 
2.11.4.GIT