diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-05-29 20:20:56 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-29 20:20:56 -0700 |
| commit | ee9f1acc30541c2d8790e22826c2bfd3e1e9a132 (patch) | |
| tree | 3aea2b04a5875b20894726496c1e3780d7018339 | |
| parent | 45ce222e71d27716193584309090072dd6258179 (diff) | |
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.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/net/net-utils.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/tcl.el | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7838b04ea6..03204c92df 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 9a6c7b124c..810d8963ce 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 9169a43301..3e91aeba9a 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) |