* packages/ada-mode/ada-mode.el (ada-in-numeric-literal-p): Refine call to
looking-back.
(<toplevel>): Fix broken use of cl-case.
* packages/ada-mode/ada-skel.el: Use #' to quote function names.
* packages/ada-mode/ada-wisi.el (ada-wisi-which-function-1): Remove unused var
`region' and avoid unneeded setq.
* packages/ada-mode/gnat-inspect.el (gnat-inspect-compilation):
* packages/ada-mode/gpr-query.el (gpr-query-compilation): Silence warning.
(defun ada-in-numeric-literal-p ()
"Return t if point is after a prefix of a numeric literal."
;; FIXME: this is actually a based numeric literal; excludes 1234
(defun ada-in-numeric-literal-p ()
"Return t if point is after a prefix of a numeric literal."
;; FIXME: this is actually a based numeric literal; excludes 1234
- (looking-back "\\([0-9]+#[0-9a-fA-F_]+\\)"))
+ (looking-back "\\([0-9]+#[0-9a-fA-F_]+\\)" (line-beginning-position)))
(defvar ada-keywords nil
"List of Ada keywords for current `ada-language-version'.")
(defvar ada-keywords nil
"List of Ada keywords for current `ada-language-version'.")
(unless (featurep 'ada-xref-tool)
(cl-case ada-xref-tool
(unless (featurep 'ada-xref-tool)
(cl-case ada-xref-tool
- ((nil 'gnat) (require 'ada-gnat-xref))
- ('gpr_query (require 'gpr-query))
+ ((nil gnat) (require 'ada-gnat-xref))
+ (gpr_query (require 'gpr-query))
))
(unless (featurep 'ada-compiler)
))
(unless (featurep 'ada-compiler)
;;; ada-skel.el --- an extension to Ada mode for inserting statement skeletons
;;; ada-skel.el --- an extension to Ada mode for inserting statement skeletons
-;; Copyright (C) 1987, 1993, 1994, 1996-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1993, 1994, 1996-2015 Free Software Foundation, Inc.
;; Authors: Stephen Leake <stephen_leake@stephe-leake.org>
;; Authors: Stephen Leake <stephen_leake@stephe-leake.org>
(provide 'ada-skeletons)
(provide 'ada-skel)
(provide 'ada-skeletons)
(provide 'ada-skel)
-(setq ada-expand 'ada-skel-expand)
-(setq ada-next-placeholder 'ada-skel-next-placeholder)
-(setq ada-prev-placeholder 'ada-skel-prev-placeholder)
+(setq ada-expand #'ada-skel-expand)
+(setq ada-next-placeholder #'ada-skel-next-placeholder)
+(setq ada-prev-placeholder #'ada-skel-prev-placeholder)
-(add-hook 'ada-mode-hook 'ada-skel-setup)
+(add-hook 'ada-mode-hook #'ada-skel-setup)
;;; ada-skel.el ends here
;;; ada-skel.el ends here
paramlist))
(defun ada-wisi-which-function-1 (keyword add-body)
paramlist))
(defun ada-wisi-which-function-1 (keyword add-body)
- "used in `ada-wisi-which-function'."
- (let (region
- result
- (cache (wisi-forward-find-class 'name (point-max))))
-
- (setq result (wisi-cache-text cache))
+ "Used in `ada-wisi-which-function'."
+ (let* ((cache (wisi-forward-find-class 'name (point-max)))
+ (result (wisi-cache-text cache)))
(when (not ff-function-name)
(setq ff-function-name
(when (not ff-function-name)
(setq ff-function-name
;;; gnatinspect supports Ada and any gcc language that supports the
;;; -fdump-xref switch (which includes C, C++).
;;
;;; gnatinspect supports Ada and any gcc language that supports the
;;; -fdump-xref switch (which includes C, C++).
;;
-;;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
(setq result-count (- (line-number-at-pos) 1))
(if (fboundp 'font-lock-ensure)
(font-lock-ensure)
(setq result-count (- (line-number-at-pos) 1))
(if (fboundp 'font-lock-ensure)
(font-lock-ensure)
- (font-lock-fontify-buffer))
+ (with-no-warnings (font-lock-fontify-buffer)))
;; font-lock-fontify-buffer applies compilation-message text properties
;; NOTE: Won't be needed in 24.5 any more, since compilation-next-error
;; will apply compilation-message text properties on the fly.
;; font-lock-fontify-buffer applies compilation-message text properties
;; NOTE: Won't be needed in 24.5 any more, since compilation-next-error
;; will apply compilation-message text properties on the fly.
(if (fboundp 'font-lock-ensure)
(font-lock-ensure)
(if (fboundp 'font-lock-ensure)
(font-lock-ensure)
- (font-lock-fontify-buffer))
+ (with-no-warnings (font-lock-fontify-buffer)))
;; font-lock-fontify-buffer applies compilation-message text properties
;; FIXME: Won't be needed in 24.5 any more, since compilation-next-error
;; will apply compilation-message text properties on the fly.
;; font-lock-fontify-buffer applies compilation-message text properties
;; FIXME: Won't be needed in 24.5 any more, since compilation-next-error
;; will apply compilation-message text properties on the fly.