summaryrefslogtreecommitdiff
path: root/lisp/progmodes/ada-xref.el
diff options
context:
space:
mode:
authorReuben Thomas <rrt@sc3d.org>2014-08-07 12:49:36 +0100
committerReuben Thomas <rrt@sc3d.org>2014-08-07 12:49:36 +0100
commit6d9d9cde2f7672efc5d74dc1f8f4a8bd9deb27ea (patch)
tree5617810b2e5630ce6a5bef0b8dffa300e3ff19b9 /lisp/progmodes/ada-xref.el
parent6c5bbf8a00919b191d5319ee9324c93f1c496dbf (diff)
downloademacs-6d9d9cde2f7672efc5d74dc1f8f4a8bd9deb27ea.tar.gz
Remove remaining mentions of VMS as a host
* notes/exit-value: Remove specific discussion of VMS. * doc/emacs/programs.texi (Program Modes): Don't advertise VMS DCL support any more. * doc/misc/ediff.texi (Merging and diff3): Don't mention lack of support for VMS diff, we no longer support VMS. * lisp/progmodes/ada-mode.el: * lisp/net/tramp.el (tramp-handle-file-symlink-p): * lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Remove a comment about VMS, which we no longer support. * lisp/progmodes/ada-xref.el (ada-xref-current): Remove mention of VMS, and fix a FIXME, using convert-standard-filename in place of removed ada-convert-file-name. * lisp/url/url-handlers.el: Remove a comment about VMS, which we no longer support.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
-rw-r--r--lisp/progmodes/ada-xref.el8
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 7cad848fda8..4bc37451e6e 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -651,12 +651,6 @@ Call `ada-require-project-file' first to ensure a project exists."
(find-file (car (cdr pos)))
(goto-char (car pos)))))
-(defun ada-convert-file-name (name)
- "Convert from NAME to a name that can be used by the compilation commands.
-This is overridden on VMS to convert from VMS filenames to Unix filenames."
- name)
-;; FIXME: use convert-standard-filename instead
-
(defun ada-set-default-project-file (file)
"Set FILE as the current project file."
(interactive "fProject file:")
@@ -1465,7 +1459,7 @@ by replacing the file extension with `.ali'."
(get-file-buffer ali-file-name))
(kill-buffer (get-file-buffer ali-file-name)))
- (let* ((name (ada-convert-file-name file))
+ (let* ((name (convert-standard-filename file))
(body-name (or (ada-get-body-name name) name)))
;; Always recompile the body when we can. We thus temporarily switch to a