procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/pcomplete.el (pcomplete-arg): Simplify

Browse source
This commit is contained in:
Stefan Monnier 2022-10-07 12:54:29 -04:00
parent 3bf53ad05c
commit 42fd433aca
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/pcomplete.el
View file

@ -646,15 +646,12 @@ parts of the list.
The OFFSET argument is added to/taken away from the index that will be
used. This is really only useful with `first' and `last', for
accessing absolute argument positions."
(setq index
(if (eq index 'first)
0
(if (eq index 'last)
pcomplete-last
(- pcomplete-index (or index 0)))))
(if offset
(setq index (+ index offset)))
(nth index pcomplete-args))
(nth (+ (pcase index
('first 0)
('last pcomplete-last)
(_ (- pcomplete-index (or index 0))))
(or offset 0))
pcomplete-args))
(defun pcomplete-begin (&optional index offset)
"Return the beginning position of the INDEXth argument.