Selaa lähdekoodia

Avoid using `case' in default value of defcustom

* lisp/org-ctags.el (org-ctags-path-to-ctags): Avoid usine `case'.
Carsten Dominik 12 vuotta sitten
vanhempi
commit
ea98942eec
1 muutettua tiedostoa jossa 2 lisäystä ja 5 poistoa
  1. 2 5
      lisp/org-ctags.el

+ 2 - 5
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)