master 92892e5611: Use `ash` instead of `lsh` in verilog-mode (bug#56641)

[Mattias Engdegård]

branch: master
commit 92892e5611c978f1473174f79b8a748d26ed37c6
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Use `ash` instead of `lsh` in verilog-mode (bug#56641)
    
    * lisp/progmodes/verilog-mode.el (verilog-simplify-range-expression):
    Use `ash`; the result will be the same because the first argument is
    nonnegative.
---
 lisp/progmodes/verilog-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index df3b28615f..f063fb5a7c 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -10880,10 +10880,10 @@ This repairs those mis-inserted by an AUTOARG."
             (setq out (replace-match
                        (concat (match-string 1 out)
                                (if (equal (match-string 3 out) ">>")
-                                   (int-to-string (lsh (string-to-number 
(match-string 2 out))
+                                   (int-to-string (ash (string-to-number 
(match-string 2 out))
                                                        (* -1 (string-to-number 
(match-string 4 out))))))
                                (if (equal (match-string 3 out) "<<")
-                                   (int-to-string (lsh (string-to-number 
(match-string 2 out))
+                                   (int-to-string (ash (string-to-number 
(match-string 2 out))
                                                        (string-to-number 
(match-string 4 out)))))
                                (if (equal (match-string 3 out) ">>>")
                                    (int-to-string (ash (string-to-number 
(match-string 2 out))