From ee9f1acc30541c2d8790e22826c2bfd3e1e9a132 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Wed, 29 May 2013 20:20:56 -0700
Subject: [PATCH] Use completion-at-point rather than obsolete alias.

* net/net-utils.el (nslookup-mode-map, ftp-mode-map):
* progmodes/tcl.el (inferior-tcl-mode-map):
Use completion-at-point rather than obsolete alias.
---
 lisp/ChangeLog        | 4 ++++
 lisp/net/net-utils.el | 4 ++--
 lisp/progmodes/tcl.el | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7838b04ea68..03204c92df5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-05-30  Glenn Morris  <rgm@gnu.org>
 
+	* net/net-utils.el (nslookup-mode-map, ftp-mode-map):
+	* progmodes/tcl.el (inferior-tcl-mode-map):
+	Use completion-at-point rather than obsolete alias.
+
 	* emacs-lisp/eieio.el (eieio-eval-default-p): Move before use.
 
 	* minibuffer.el (read-file-name-completion-ignore-case):
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index 9a6c7b124c7..810d8963ce2 100644
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -497,7 +497,7 @@ If your system's ping continues until interrupted, you can try setting
 
 (defvar nslookup-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map "\t" 'comint-dynamic-complete)
+    (define-key map "\t" 'completion-at-point)
     map))
 
 ;; Using a derived mode gives us keymaps, hooks, etc.
@@ -567,7 +567,7 @@ If your system's ping continues until interrupted, you can try setting
 (defvar ftp-mode-map
   (let ((map (make-sparse-keymap)))
     ;; Occasionally useful
-    (define-key map "\t" 'comint-dynamic-complete)
+    (define-key map "\t" 'completion-at-point)
     map))
 
 (define-derived-mode ftp-mode comint-mode "FTP"
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 9169a433015..3e91aeba9a1 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -266,7 +266,7 @@ quoted for Tcl."
   ;; Maybe someone has a better set?
   (let ((map (make-sparse-keymap)))
     ;; Will inherit from `comint-mode-map' thanks to define-derived-mode.
-    (define-key map "\t" 'comint-dynamic-complete)
+    (define-key map "\t" 'completion-at-point)
     (define-key map "\M-?" 'comint-dynamic-list-filename-completions)
     (define-key map "\177" 'backward-delete-char-untabify)
     (define-key map "\M-\C-x" 'tcl-eval-defun)
-- 
2.11.4.GIT