From 02ff30bfbb2b7c731c96110af84d2585211125ba Mon Sep 17 00:00:00 2001
From: Mattias Engdegård
Date: Sat, 1 Jan 2022 15:33:27 +0100
Subject: ; * src/bytecode.c (exec_byte_code): Cosmetic improvement

Implement point_max in the same way as point_min.
---
 src/bytecode.c | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/bytecode.c')

diff --git a/src/bytecode.c b/src/bytecode.c
index 2b017f0e8d5..9e31da79a0b 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1212,12 +1212,8 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 	  NEXT;
 
 	CASE (Bpoint_max):
-	  {
-	    Lisp_Object v1;
-	    XSETFASTINT (v1, ZV);
-	    PUSH (v1);
-	    NEXT;
-	  }
+	  PUSH (make_fixed_natnum (ZV));
+	  NEXT;
 
 	CASE (Bpoint_min):
 	  PUSH (make_fixed_natnum (BEGV));
-- 
cgit v1.2.1