comparison lisp/eshell/em-cmpl.el @ 31241:3099993cba0f

See ChangeLog
author John Wiegley <johnw@newartisans.com>
date Tue, 29 Aug 2000 00:47:45 +0000
parents 410bf1054bbd
children 8e57189d61b4
comparison
equal deleted inserted replaced
31240:10b1c85c0bbe 31241:3099993cba0f
223 (cdr (assoc (funcall eshell-cmpl-command-name-function) 223 (cdr (assoc (funcall eshell-cmpl-command-name-function)
224 eshell-command-completions-alist))))))) 224 eshell-command-completions-alist)))))))
225 (documentation-property 'pcomplete-default-completion-function 225 (documentation-property 'pcomplete-default-completion-function
226 'variable-documentation) 226 'variable-documentation)
227 :type (get 'pcomplete-default-completion-function 'custom-type) 227 :type (get 'pcomplete-default-completion-function 'custom-type)
228 :group 'pcomplete) 228 :group 'eshell-cmpl)
229
230 (defcustom eshell-cmpl-use-paring t
231 (documentation-property 'pcomplete-use-paring 'variable-documentation)
232 :type (get 'pcomplete-use-paring 'custom-type)
233 :group 'eshell-cmpl)
229 234
230 ;;; Functions: 235 ;;; Functions:
231 236
232 (defun eshell-cmpl-initialize () 237 (defun eshell-cmpl-initialize ()
233 "Initialize the completions module." 238 "Initialize the completions module."
263 eshell-cmpl-cycle-completions) 268 eshell-cmpl-cycle-completions)
264 (set (make-local-variable 'pcomplete-cycle-cutoff-length) 269 (set (make-local-variable 'pcomplete-cycle-cutoff-length)
265 eshell-cmpl-cycle-cutoff-length) 270 eshell-cmpl-cycle-cutoff-length)
266 (set (make-local-variable 'pcomplete-restore-window-delay) 271 (set (make-local-variable 'pcomplete-restore-window-delay)
267 eshell-cmpl-restore-window-delay) 272 eshell-cmpl-restore-window-delay)
273 (set (make-local-variable 'pcomplete-use-paring)
274 eshell-cmpl-use-paring)
268 ;; `pcomplete-arg-quote-list' should only be set after all the 275 ;; `pcomplete-arg-quote-list' should only be set after all the
269 ;; load-hooks for any other extension modules have been run, which 276 ;; load-hooks for any other extension modules have been run, which
270 ;; is true at the time `eshell-mode-hook' is run 277 ;; is true at the time `eshell-mode-hook' is run
271 (make-local-hook 'eshell-mode-hook) 278 (make-local-hook 'eshell-mode-hook)
272 (add-hook 'eshell-mode-hook 279 (add-hook 'eshell-mode-hook