Lines Matching +defs:actual +defs:arg
166 (defcustom pcomplete-arg-quote-list nil
172 (defcustom pcomplete-quote-arg-hook nil
179 `pcomplete-arg-quote-list'."
469 (defun pcomplete-arg (&optional index offset)
495 See the documentation for `pcomplete-arg'."
506 (defsubst pcomplete-actual-arg (&optional index offset)
507 "Return the actual text representation of the last argument.
508 This is different from `pcomplete-arg', which returns the textual value
513 (defsubst pcomplete-next-arg ()
516 pcomplete-stub (pcomplete-arg))
524 (file-name-nondirectory (pcomplete-arg 'first)))
528 (let ((arg (pcomplete-arg (or index 1) offset)))
529 (if arg
530 (string-match regexp arg start)
535 (let ((arg (pcomplete-arg (or index 1) offset)))
536 (if arg
537 (match-string which arg)
543 (defsubst pcomplete--test (pred arg)
548 (funcall pred arg))
550 (string-match (concat "^" pred "$") arg)))
555 (let ((arg (pcomplete-arg (or index 1) offset)))
558 (pcomplete--test predicates arg)
562 (setq found (pcomplete--test (car pred) arg)
631 pcomplete-stub (pcomplete-arg 'last))
672 Magic characters are those in `pcomplete-arg-quote-list'."
673 (if (null pcomplete-arg-quote-list)
681 'pcomplete-quote-arg-hook filename index))
686 (memq char pcomplete-arg-quote-list))
806 (pcomplete-next-arg)
817 (string= (pcomplete-arg) "-"))
835 (let ((arg (pcomplete-arg)))
836 (when (and (> (length arg) 1)
837 (stringp arg)
838 (eq (aref arg 0) (or prefix ?-)))
839 (pcomplete-next-arg)
840 (let ((char (aref arg 1))
843 opt-char arg-char result)
846 arg-char (aref options (1+ index)))
847 (if (eq arg-char ?\()
854 (memq arg-char '(?\( ?/ ?* ?? ?.)))
856 (pcomplete-next-arg)
858 (cond ((eq arg-char ?/) (pcomplete-dirs))
859 ((eq arg-char ?*) (pcomplete-executables))
860 ((eq arg-char ??) nil)
861 ((eq arg-char ?.) (pcomplete-entries))
862 ((eq arg-char ?\() (eval result))))))
873 (let ((arg (pcomplete-arg)))
874 (unless (not (stringp arg))
877 (funcall paring arg)
878 (file-truename arg))
880 (pcomplete-next-arg)
1046 (let* ((arg (pcomplete-arg))
1050 (substring arg 0 (- (length arg)