diff options
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 6fe29d9dcfb..8cb0aa3b7ad 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -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. |