* ada-mode/ada-mode-compat-23.4.el: Remove.
* ada-mode/ada-build.el: Remove redundant :group arg on defcustoms.
* ada-mode/ada-gnat-compile.el (ada-gnat-fix-error): Remove unused vars
`ident', `type', and `param'.
* ada-mode/ada-gnat-xref.el (ada-gnat-xref-other): Remove unused var `status'.
(ada-gnat-xref-parents): Remove unused vars `found-file', `found-line',
and `found-col'.
(ada-gnat-xref-all): Rename (dynbound) mode-name to (lexbound) mode.
* ada-mode/ada-indent-user-options.el: Remove redundant :group arg
on defcustoms.
* ada-mode/ada-mode.el: Remove redundant :group arg on defcustoms.
(ada-case-exception-file, ada-case-keyword): Comment-out dangerous :safep.
(ada-language-version): Remove redundant calls to make-variable-buffer-local.
(ada-prj-current-file): Declare.
(ada-identifier-at-point): Remove unused var `identifier'.
* ada-mode/gnat-core.el (ada-gnat-ada-name-from-file-name):
Remove unused var `status'.
-;;; ada-build.el --- extensions to ada-mode for compiling and running
-;;; Ada projects without 'make' or similar tool
+;;; ada-build.el --- Extensions to ada-mode for compiling and running -*- lexical-binding:t -*-
+;; Ada projects without 'make' or similar tool
;;
-;;; Copyright (C) 1994, 1995, 1997 - 2014 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1997 - 2015 Free Software Foundation, Inc.
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
(const prompt-default)
(const prompt-exist)
(const error))
- :group 'ada-build
- :safe 'symbolp)
+ :safe #'symbolp)
(defcustom ada-build-confirm-command nil
"If non-nil, prompt for confirmation/edit of each command before it is run."
:type 'boolean
- :group 'ada-build
- :safe 'booleanp)
+ :safe #'booleanp)
(defcustom ada-build-check-cmd
(concat "${cross_prefix}gnatmake -u -c -gnatc ${gnatmake_opt} ${full_current} -cargs -I${src_dir} ${comp_opt}")
"Default command to syntax check a single file.
Overridden by project variable 'check_cmd'."
- :type 'string
- :group 'ada-build)
+ :type 'string)
(defcustom ada-build-make-cmd
(concat "${cross_prefix}gnatmake -P${gpr_file} -o ${main} ${main} ${gnatmake_opt} "
"-cargs -I${src_dir} ${comp_opt} -bargs ${bind_opt} -largs ${link_opt}")
"Default command to compile the application.
Overridden by project variable 'make_cmd'."
- :type 'string
- :group 'ada-build)
+ :type 'string)
(defcustom ada-build-run-cmd "./${main}"
"Default command to run the application, in a spawned shell.
Overridden by project variable 'run_cmd'."
- :type 'string
- :group 'ada-build)
+ :type 'string)
;;;; code
-;;; ada-fix-error.el --- utilities for automatically fixing
+;;; ada-fix-error.el --- utilities for automatically fixing -*- lexical-binding:t -*-
;; errors reported by the compiler.
;; Copyright (C) 1999-2009, 2012-2015 Free Software Foundation, Inc.
-;; Ada mode compiling functionality provided by the 'gnat'
-;; tool. Includes related functions, such as gnatprep support.
+;; ada-gnat-compile.el --- Ada mode compiling functionality provided by 'gnat' -*- lexical-binding:t -*-
+;; Includes related functions, such as gnatprep support.
;;
;; These tools are all Ada-specific; use Makefiles for multi-language
;; GNAT compilation tools.
(completing-read "correct spelling: " choices))
)))
-(defun ada-gnat-fix-error (msg source-buffer source-window)
+(defun ada-gnat-fix-error (_msg source-buffer _source-window)
"For `ada-gnat-fix-error-hook'."
(let ((start-pos (point))
message-column
;; Then style errors.
((looking-at (concat ada-gnat-quoted-name-regexp " is not visible"))
- (let ((ident (match-string 1))
- (done nil)
+ (let ((done nil)
(file-line-struct (progn (beginning-of-line) (ada-get-compilation-message)))
pos choices unit-name)
;; next line may contain a reference to where ident is
t)))
((looking-at (concat "expected \\(private \\)?type " ada-gnat-quoted-name-regexp))
- (let ((type (match-string 2)))
+ (progn
(forward-line 1)
(move-to-column message-column)
(cond
t)
((looking-at (concat "warning: formal parameter " ada-gnat-quoted-name-regexp " is not modified"))
- (let ((param (match-string 1))
- (mode-regexp "\"\\([in out]+\\)\"")
+ (let ((mode-regexp "\"\\([in out]+\\)\"")
new-mode
old-mode)
(forward-line 1)
-;; Ada mode cross-reference functionality provided by the 'gnat xref'
-;; tool.
+;;; ada-gnat-xref.el --- Ada mode cross-reference functionality provided by the 'gnat xref' tool -*- lexical-binding:t -*-
;;
;; These tools are all Ada-specific; see gpr-query for multi-language
;; GNAT cross-reference tools.
(switches (concat
"-a"
(when (ada-prj-get 'gpr_ext) (concat "--ext=" (ada-prj-get 'gpr_ext)))))
- status
(result nil))
(with-current-buffer (gnat-run-buffer)
(gnat-run-gnat "find" (list switches arg))
;; error in *.gpr; ignore here.
(forward-line 1)
;; else process line
- (let ((found-file (match-string 1))
- (found-line (string-to-number (match-string 2)))
- (found-col (string-to-number (match-string 3))))
-
+ (progn
(skip-syntax-forward "^ ")
(skip-syntax-forward " ")
(if (looking-at (concat "derived from .* (" ada-gnat-file-line-col-regexp ")"))
(compilation-start cmd
'compilation-mode
- (lambda (mode-name) (concat mode-name "-gnatfind")))
+ (lambda (mode) (concat mode "-gnatfind")))
))))
;;;;; setup
-;;; ada-grammar-wy.el --- Generated parser support file
+;;; ada-grammar-wy.el --- Generated parser support file -*- lexical-binding:t -*-
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2015 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
-;;; ada-imenu.el - Ada mode interface to imenu for Ada Mode
+;;; ada-imenu.el - Ada mode interface to imenu for Ada Mode -*- lexical-binding:t -*-
-;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013, 2015 Free Software Foundation, Inc.
;;
;; Author: Simon Wright <simon@pushface.org>
;; Contributors: see ada-mode.el, and specifically Christian Egli
)
;; ada--imenu-mode does not depend on file local variables
-(add-hook 'ada-mode-hook 'ada--imenu-mode)
+(add-hook 'ada-mode-hook #'ada--imenu-mode)
(provide 'ada-imenu)
-;;; user options shared by Ada mode indentation engines
+;;; user options shared by Ada mode indentation engines -*- lexical-binding:t -*-
;;
-;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013, 2015 Free Software Foundation, Inc.
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Contributors: Simon Wright <simon.j.wright@mac.com>
begin
>>>null;"
:type 'integer
- :group 'ada-indentation
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent)
(defvar ada-broken-indent nil)
My_Var : My_Type :=
>>(Field1 => Value);"
:type 'integer
- :group 'ada-indentation
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-broken)
(defcustom ada-indent-comment-col-0 nil
"If non-nil, comments currently starting in column 0 are left in column 0.
Otherwise, they are indented with previous comments or code."
:type 'boolean
- :group 'ada-indentation
- :safe 'booleanp)
+ :safe #'booleanp)
(make-variable-buffer-local 'ada-indent-comment-col-0)
(defvar ada-label-indent nil)
<<Label_2>>
<<<<Foo := 0;"
:type 'integer
- :group 'ada-indentation
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-label)
(defcustom ada-indent-record-rel-type 3
type A is
>>>record"
:type 'integer
- :group 'ada-indent
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-record-rel-type)
(defcustom ada-indent-renames 2
return C
>>>>>>>>>>>renames Foo;"
:type 'integer
- :group 'ada-indent
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-renames)
(defcustom ada-indent-return 0
function A (B : Integer)
>>>>>>>>>>>return C;"
:type 'integer
- :group 'ada-indent
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-return)
(defvar ada-use-indent nil)
use Ada.Text_IO,
>>Ada.Numerics;"
:type 'integer
- :group 'ada
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-use)
(defvar ada-when-indent nil)
case A is
>>>when B =>"
:type 'integer
- :group 'ada-indent
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-when)
(defvar ada-with-indent nil)
with Ada.Text_IO,
>>Ada.Numerics;"
:type 'integer
- :group 'ada
- :safe 'integerp)
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-with)
(provide 'ada-indent-user-options)
+++ /dev/null
-;;; ada-mode-compat-23.4.el --- Implement current Emacs features not present in Emacs 23.4
-
-;; Copyright (C) 2013 Free Software Foundation, Inc.
-
-;; 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/>.
-
-(defvar compilation-filter-start (make-marker)
- "")
-
-(defun compilation-filter-start (proc)
- ""
- (set-marker compilation-filter-start (point-max)))
-
-(defun compilation--put-prop (matchnum prop val)
- (when (and (integerp matchnum) (match-beginning matchnum))
- (put-text-property
- (match-beginning matchnum) (match-end matchnum)
- prop val)))
-
-;; FIXME: emacs 24.x manages compilation-filter-start, emacs 23.4 does not
-;;
-;; gnat-core.el gnat-prj-parse-emacs-final needs:
-;; (add-hook 'compilation-start-hook 'ada-gnat-compilation-start))
-;;
-;; ada-gnat.el ada-gnat-compilation-filter needs:
-;; (set-marker compilation-filter-start (point)))
-
-;; end of file
-;;; ada-mode-compat-24.2.el --- Implement current Emacs features not present in Emacs 24.2
+;;; ada-mode-compat-24.2.el --- Implement current Emacs features not present in Emacs 24.2 -*- lexical-binding:t -*-
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
-;;; ada-mode.el --- major-mode for editing Ada sources
+;;; ada-mode.el --- major-mode for editing Ada sources -*- lexical-binding:t -*-
;;
-;;; Copyright (C) 1994, 1995, 1997 - 2015 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1997 - 2015 Free Software Foundation, Inc.
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
Casing of Ada keywords is done according to `ada-case-keyword',
identifiers are Mixed_Case."
:type 'boolean
- :group 'ada
- :safe 'booleanp)
+ :safe #'booleanp)
(make-variable-buffer-local 'ada-auto-case)
(defcustom ada-case-exception-file nil
character. Characters after the first word are ignored, and not
preserved when the list is written back to the file."
:type '(repeat (file))
- :group 'ada
- :safe 'listp)
+ ;; :safe #'listp ;FIXME: is '("~/.emacs" "~/.bashrc" "/etc/passwd") safe?
+ )
(defcustom ada-case-keyword 'downcase-word
"Buffer-local value that may override project variable `case_keyword'.
Function to call to adjust the case of Ada keywords."
:type '(choice (const downcase-word)
(const upcase-word))
- :group 'ada
- :safe 'functionp)
+ ;; :safe #'functionp ; FIXME: `functionp' CANNOT be safe!
+ )
(make-variable-buffer-local 'ada-case-keyword)
(defcustom ada-case-identifier 'ada-mixed-case
:type '(choice (const ada-mixed-case)
(const ada-lower-case)
(const ada-upper-case))
- :group 'ada
- :safe 'functionp)
+ ;; :safe #'functionp ; FIXME: `functionp' CANNOT be safe!
+ )
;; we'd like to check that there are 3 args, since the previous
;; release required 2 here. But there doesn't seem to be a way to
;; access the arg count, which is only available for byte-compiled
If non-nil, force Mixed_Case for identifiers.
Otherwise, allow UPPERCASE for identifiers."
:type 'boolean
- :group 'ada
- :safe 'booleanp)
+ :safe #'booleanp)
(make-variable-buffer-local 'ada-case-strict)
(defcustom ada-language-version 'ada2012
(const ada95)
(const ada2005)
(const ada2012))
- :group 'ada
- :safe 'symbolp)
+ :safe #'symbolp)
(make-variable-buffer-local 'ada-language-version)
(defcustom ada-fill-comment-prefix "-- "
"Comment fill prefix."
- :type 'string
- :group 'ada)
-(make-variable-buffer-local 'ada-language-version)
+ :type 'string)
(defcustom ada-fill-comment-postfix " --"
"Comment fill postfix."
- :type 'string
- :group 'ada)
-(make-variable-buffer-local 'ada-language-version)
+ :type 'string)
(defcustom ada-prj-file-extensions '("adp" "prj")
"List of Emacs Ada mode project file extensions.
Used when searching for a project file.
Any file with one of these extensions will be parsed by `ada-prj-parse-file-1'."
- :type 'list
- :group 'ada)
+ :type 'list)
(defcustom ada-prj-file-ext-extra nil
"List of secondary project file extensions.
Used when searching for a project file that can be a primary or
secondary project file (referenced from a primary). The user
must provide a parser for a file with one of these extensions."
- :type 'list
- :group 'ada)
+ :type 'list)
;;;;; end of user variables
["Other File" ada-find-other-file t]
["Other file don't find decl" ada-find-other-file-noset t]))
-(defun ada-popup-menu (position)
+(defun ada-popup-menu (_position)
"Pops up a `ada-context-menu', with `ada-context-menu-on-identifer' set appropriately.
POSITION is the location the mouse was clicked on.
Sets `ada-context-menu-last-point' to the current position before
(push (cons word t) exceptions))
exceptions)
+(defvar ada-prj-current-file)
+
(defun ada-case-create-exception (&optional word file-name partial)
"Define WORD as an exception for the casing system, save it in FILE-NAME.
If PARTIAL is non-nil, create a partial word exception. WORD
(point))))
(member (downcase word) ada-keywords)))
-(defun ada-lower-case (start end force-case-strict)
+(defun ada-lower-case (start end _force-case-strict)
(downcase-region start end))
-(defun ada-upper-case (start end force-case-strict)
+(defun ada-upper-case (start end _force-case-strict)
(upcase-region start end))
(defun ada-mixed-case (start end force-case-strict)
(interactive "P")
(ada-find-other-file other-window t))
-(defun ada-find-other-file (other-window &optional no-set-point)
+(defun ada-find-other-file (other-window &optional _no-set-point)
"Move to the corresponding declaration in another file.
- If region is active, assume it contains a package name;
(when (ada-in-comment-p)
(error "Inside comment"))
- (let (identifier)
+ (skip-chars-backward "a-zA-Z0-9_<>=+\\-\\*/&")
- (skip-chars-backward "a-zA-Z0-9_<>=+\\-\\*/&")
-
- ;; Just in front of, or inside, a string => we could have an
- ;; operator function declaration.
+ ;; Just in front of, or inside, a string => we could have an
+ ;; operator function declaration.
+ (cond
+ ((ada-in-string-p)
(cond
- ((ada-in-string-p)
- (cond
- ((and (= (char-before) ?\")
- (progn
- (forward-char -1)
- (looking-at (concat "\"\\(" ada-operator-re "\\)\""))))
- (setq identifier (concat "\"" (match-string-no-properties 1) "\"")))
+ ((and (= (char-before) ?\")
+ (progn
+ (forward-char -1)
+ (looking-at (concat "\"\\(" ada-operator-re "\\)\""))))
+ (concat "\"" (match-string-no-properties 1) "\""))
- (t
- (error "Inside string or character constant"))
- ))
+ (t
+ (error "Inside string or character constant"))
+ ))
- ((and (= (char-after) ?\")
- (looking-at (concat "\"\\(" ada-operator-re "\\)\"")))
- (setq identifier (concat "\"" (match-string-no-properties 1) "\"")))
+ ((and (= (char-after) ?\")
+ (looking-at (concat "\"\\(" ada-operator-re "\\)\"")))
+ (concat "\"" (match-string-no-properties 1) "\""))
- ((looking-at "[a-zA-Z0-9_]+\\|[+\\-*/&=<>]")
- (setq identifier (match-string-no-properties 0)))
+ ((looking-at "[a-zA-Z0-9_]+\\|[+\\-*/&=<>]")
+ (match-string-no-properties 0))
- (t
- (error "No identifier around"))
- )))
+ (t
+ (error "No identifier around"))
+ ))
;; FIXME: use find-tag-marker-ring, ring-insert, pop-tag-mark (see xref.el)
(defvar ada-goto-pos-ring '()
-;; dummy file to hide obsolete bundled version
+;;; ada-prj.el --- Dummy file to hide obsolete bundled version -*- lexical-binding:t -*-
(require 'ada-mode)
(provide 'ada-prj)
(message "'ada-prj' is obsolete; use 'ada-mode' instead")
-;;; ada-ref-man.el --- Ada Reference Manual 2012
+;;; ada-ref-man.el --- Ada Reference Manual 2012 -*- lexical-binding:t -*-
;;
-;;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
-;;; ada-skel.el --- an extension to Ada mode for inserting statement skeletons
+;;; ada-skel.el --- Extension to Ada mode for inserting statement skeletons -*- lexical-binding:t -*-
;; Copyright (C) 1987, 1993, 1994, 1996-2015 Free Software Foundation, Inc.
-- This text was inserted by ada-skel-initial-string;
-- M-x customize-variable <RET> ada-skel-initial-string <RET>
-- (info \"(ada-mode)Statement skeletons\")"
- "*String to insert in empty buffer.
+ "String to insert in empty buffer.
This could end in a token recognized by `ada-skel-expand'."
:type 'string
:group 'ada
- :safe 'stringp)
+ :safe #'stringp)
(define-skeleton ada-skel-user-restricted
"Example copyright/license skeleton, with automatic year and owner."
-;; dummy file to hide obsolete bundled version
+;;; ada-stmt.el --- Dummy file to hide obsolete bundled version -*- lexical-binding:t -*-
(require 'ada-mode)
(provide 'ada-stmt)
(message "'ada-stmt' is obsolete; use 'ada-mode' instead")
-;;; ada-wisi-opentoken.el --- An indentation function for ada-wisi that indents OpenToken
+;;; ada-wisi-opentoken.el --- An indentation function for ada-wisi that indents OpenToken -*- lexical-binding:t -*-
;; grammar statements nicely.
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
-;;; An indentation engine for Ada mode, using the wisi generalized LALR parser
+;;; ada-wisi.el --- Indentation engine for Ada mode, using the wisi generalized LALR parser -*- lexical-binding:t -*-
;;
;; [1] ISO/IEC 8652:2012(E); Ada 2012 reference manual
;;
-;; dummy file to hide obsolete bundled version
+;;; ada-xref.el --- Dummy file to hide obsolete bundled version -*- lexical-binding:t -*-
(require 'ada-mode)
(provide 'ada-xref)
(message "'ada-xref' is obsolete; use 'ada-mode' instead")
-;; Support for running GNAT tools, which support multiple programming
+;; gnat-core.el --- Support for running GNAT tools, which support multiple programming -*- lexical-binding:t -*-
;; languages.
;;
;; GNAT is provided by AdaCore; see http://libre.adacore.com/
(defun ada-gnat-ada-name-from-file-name (file-name)
"For `ada-ada-name-from-file-name'."
- (let* (status
- (ada-name (file-name-sans-extension (file-name-nondirectory file-name)))
- (predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist))))
+ (let* ((ada-name (file-name-sans-extension (file-name-nondirectory file-name)))
+ (predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist))))
(if predefined
predefined
-;;; gnat-inspect.el --- minor-mode for navigating sources using the
-;;; AdaCore cross reference tool gnatinspect.
-;;;
-;;; gnatinspect supports Ada and any gcc language that supports the
-;;; -fdump-xref switch (which includes C, C++).
+;;; gnat-inspect.el --- Minor-mode for navigating sources using gnatinspect -*- lexical-binding:t -*-
+
+;; gnatinspect supports Ada and any gcc language that supports the
+;; -fdump-xref switch (which includes C, C++).
;;
-;;; Copyright (C) 2013-2015 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>
-;;; gpr-grammar-wy.el --- Generated parser support file
+;;; gpr-grammar-wy.el --- Generated parser support file -*- lexical-binding:t -*-
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2015 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
-;;; gpr-mode --- major-mode for editing GNAT project files
+;;; gpr-mode.el --- Major-mode for editing GNAT project files -*- lexical-binding:t -*-
-;; Copyright (C) 2004, 2007, 2008, 2012-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2007, 2008, 2012-2015 Free Software Foundation, Inc.
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
-;;; gpr-query.el --- minor-mode for navigating sources using the
-;;; custom gpr_query tool.
-;;;
-;;; gpr-query supports Ada and any gcc language that supports the
-;;; AdaCore -fdump-xref switch (which includes C, C++).
+;;; gpr-query.el --- Minor-mode for navigating sources using gpr_query -*- lexical-binding:t -*-
;;
-;;; Copyright (C) 2013 - 2015 Free Software Foundation, Inc.
+;; gpr-query supports Ada and any gcc language that supports the
+;; AdaCore -fdump-xref switch (which includes C, C++).
+;;
+;; Copyright (C) 2013 - 2015 Free Software Foundation, Inc.
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
-;;; gpr-skel.el --- an extension to Gpr mode for inserting statement skeletons
+;;; gpr-skel.el --- an extension to Gpr mode for inserting statement skeletons -*- lexical-binding:t -*-
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
;; Authors: Stephen Leake <stephen_leake@stephe-leake.org>
;;;;; user variables, example skeletons intended to be overwritten
(defcustom gpr-skel-initial-string "{header}\n{project}"
- "*String to insert in empty buffer.
+ "String to insert in empty buffer.
This could end in a token recognized by `gpr-skel-expand'."
:type 'string
- :group 'gpr
- :safe 'stringp)
+ :group 'gpr ;FIXME: Unknown!
+ :safe #'stringp)
(define-skeleton gpr-skel-user-restricted
"Example copyright/license skeleton, with automatic year and owner."
(provide 'gpr-skeletons)
(provide 'gpr-skel)
-(setq gpr-expand 'skeleton-expand)
+(setq gpr-expand #'skeleton-expand)
-(add-hook 'gpr-mode-hook 'gpr-skel-setup)
+(add-hook 'gpr-mode-hook #'gpr-skel-setup)
;;; end of file
-;;; An indentation engine for gpr mode, using the wisent LALR parser
+;;; gpr-wisi.el --- An indentation engine for gpr mode, using the wisent LALR parser -*- lexical-binding:t -*-
;;
;; [1] GNAT user guide (info "gnat_ugn")
;;
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;;