emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 780a4ca: * ada-mode/xref-ada.el: Add copyright blurb


From: Stefan Monnier
Subject: [elpa] master 780a4ca: * ada-mode/xref-ada.el: Add copyright blurb
Date: Sun, 2 Dec 2018 18:46:30 -0500 (EST)

branch: master
commit 780a4caa8f50f964751ebd024e7f81fb85c10364
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * ada-mode/xref-ada.el: Add copyright blurb
    
    Always require 'xref' (the whole package requires Emacs-25 anyway).
    (xref-ada-mode): Use 'remove-hook'.
---
 packages/ada-mode/xref-ada.el | 29 ++++++++++++++++++++++-------
 1 file changed, 22 insertions(+), 7 deletions(-)

diff --git a/packages/ada-mode/xref-ada.el b/packages/ada-mode/xref-ada.el
index 8cc1d15..361111d 100644
--- a/packages/ada-mode/xref-ada.el
+++ b/packages/ada-mode/xref-ada.el
@@ -1,10 +1,25 @@
 ;; xref-ada.el --- ada-mode backend for xref.el -*-lexical-binding:t-*-
 ;;
-;; requires emacs 25
+;; Copyright (C) 2018  Free Software Foundation, Inc.
 
-(eval-and-compile
-  (when (> emacs-major-version 24)
-    (require 'xref)))
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'xref)
 
 (defun xref-ada-find-backend ()
   'xref-ada)
@@ -132,9 +147,9 @@
   ;; The macro code sets the mode variable to the new value before we get here.
   (if xref-ada-mode
       (add-hook 'xref-backend-functions #'xref-ada-find-backend nil t)
+    (remove-hook 'xref-backend-functions #'xref-ada-find-backend t)))
 
-    (setq xref-backend-functions (remq #'xref-ada-find-backend 
xref-backend-functions))))
-
-(add-hook 'ada-mode-hook 'xref-ada-mode)
+(add-hook 'ada-mode-hook #'xref-ada-mode)
 
 (provide 'xref-ada)
+;;; end of file



reply via email to

[Prev in Thread] Current Thread [Next in Thread]