-;;; company-gtags.el --- A company-mode completion back-end for GNU Global
+;;; company-gtags.el --- company-mode completion back-end for GNU Global
;; Copyright (C) 2009-2011 Free Software Foundation, Inc.
;;; Commentary:
-;;
+;;
;;; Code:
(require 'company)
-(eval-when-compile (require 'cl))
+(require 'cl-lib)
+
+(defgroup company-gtags nil
+ "Completion back-end for GNU Global."
+ :group 'company)
(defcustom company-gtags-executable
(executable-find "global")
- "*Location of GNU global executable."
- :type 'string
- :group 'company)
+ "Location of GNU global executable."
+ :type 'string)
(define-obsolete-variable-alias
'company-gtags-gnu-global-program-name
(defun company-gtags--tags-available-p ()
(if (eq company-gtags--tags-available-p 'unknown)
(setq company-gtags--tags-available-p
- (company-locate-dominating-file buffer-file-name "GTAGS"))
+ (locate-dominating-file buffer-file-name "GTAGS"))
company-gtags--tags-available-p))
(defun company-gtags-fetch-tags (prefix)
;;;###autoload
(defun company-gtags (command &optional arg &rest ignored)
- "A `company-mode' completion back-end for GNU Global."
+ "`company-mode' completion back-end for GNU Global."
(interactive (list 'interactive))
- (case command
+ (cl-case command
(interactive (company-begin-backend 'company-gtags))
(prefix (and company-gtags-executable
(memq major-mode company-gtags-modes)