From: Glenn Morris <rgm@gnu.org>
Date: Thu, 30 May 2013 03:27:46 +0000 (-0700)
Subject: In Eshell, replace obsolete lisp-complete-symbol
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~130
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/2082faa6de65cf1594ec6e3a6622d45a2fc4ef97

In Eshell, replace obsolete lisp-complete-symbol

* eshell/em-cmpl.el (eshell-complete-lisp-symbol): New function.
(eshell-cmpl-initialize, eshell-complete-parse-arguments):
Replace obsolete lisp-complete-symbol with eshell-complete-lisp-symbol.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66e8c227d1..81ec34951b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-05-30  Glenn Morris  <rgm@gnu.org>
 
+	* eshell/em-cmpl.el (eshell-complete-lisp-symbol): New function.
+	(eshell-cmpl-initialize, eshell-complete-parse-arguments):
+	Replace obsolete lisp-complete-symbol with eshell-complete-lisp-symbol.
+
 	* image.el (image-animated-p): Tweak definition.
 
 	* net/rlogin.el (rlogin-program, rlogin-explicit-args): Default to ssh.
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index 426db3232e..4b952e0ee3 100644
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -243,6 +243,12 @@ to writing a completion function."
 
 ;;; Functions:
 
+(defun eshell-complete-lisp-symbol ()
+  "Try to complete the text around point as a Lisp symbol."
+  (interactive)
+  (let ((completion-at-point-functions '(lisp-completion-at-point)))
+    (completion-at-point)))
+
 (defun eshell-cmpl-initialize ()
   "Initialize the completions module."
   (set (make-local-variable 'pcomplete-command-completion-function)
@@ -288,8 +294,8 @@ to writing a completion function."
 	       (set (make-local-variable 'pcomplete-arg-quote-list)
 		    eshell-special-chars-outside-quoting))) nil t)
   (add-hook 'pcomplete-quote-arg-hook 'eshell-quote-backslash nil t)
-  (define-key eshell-mode-map [(meta tab)] 'lisp-complete-symbol)
-  (define-key eshell-mode-map [(meta control ?i)] 'lisp-complete-symbol)
+  (define-key eshell-mode-map [(meta tab)] 'eshell-complete-lisp-symbol)
+  (define-key eshell-mode-map [(meta control ?i)] 'eshell-complete-lisp-symbol)
   (define-key eshell-command-map [(meta ?h)] 'eshell-completion-help)
   (define-key eshell-command-map [tab] 'pcomplete-expand-and-complete)
   (define-key eshell-command-map [(control ?i)]
@@ -347,7 +353,7 @@ to writing a completion function."
 	       (setq begin (1+ (cadr delim))
 		     args (eshell-parse-arguments begin end)))
 	      ((eq (car delim) ?\()
-	       (lisp-complete-symbol)
+	       (eshell-complete-lisp-symbol)
 	       (throw 'pcompleted t))
 	      (t
 	       (insert-and-inherit "\t")