From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 7 Oct 2022 16:54:29 +0000 (-0400)
Subject: * lisp/pcomplete.el (pcomplete-arg): Simplify
X-Git-Tag: emacs-29.0.90~1616^2~711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42fd433acabc97cec035748be0508234bda39750;p=emacs.git

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

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.