]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/ada-mode/ada-mode-compat-24.2.el
ada-mode, wisi: bump versions again; forgot to add some files to git
[gnu-emacs-elpa] / packages / ada-mode / ada-mode-compat-24.2.el
diff --git a/packages/ada-mode/ada-mode-compat-24.2.el b/packages/ada-mode/ada-mode-compat-24.2.el
new file mode 100755 (executable)
index 0000000..aa152db
--- /dev/null
@@ -0,0 +1,31 @@
+;;; ada-mode-compat-24.2.el --- Implement current Emacs features not present in Emacs 24.2
+
+;; Copyright (C) 2014 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/>.
+
+;; using cl-lib 0.4 from Gnu ELPA
+
+(defun file-name-base (&optional filename)
+  "Return the base name of the FILENAME: no directory, no extension.
+FILENAME defaults to `buffer-file-name'."
+  (file-name-sans-extension
+   (file-name-nondirectory (or filename (buffer-file-name)))))
+
+
+(provide 'ada-mode-compat-24.2)
+
+;; end of file