aboutsummaryrefslogtreecommitdiffstats
path: root/src/nsselect.m
diff options
context:
space:
mode:
authorCharles A. Roelli2018-08-09 16:00:20 +0200
committerCharles A. Roelli2018-08-09 16:00:20 +0200
commitd0b279a50518ce61277cfd274349da8fcc0b0609 (patch)
treeda363120bb7cbfc3fe90d79f93825e1b4ddff96c /src/nsselect.m
parent90dba077cff06b4f2566acb028286fbffa57f22f (diff)
downloademacs-d0b279a50518ce61277cfd274349da8fcc0b0609.tar.gz
emacs-d0b279a50518ce61277cfd274349da8fcc0b0609.zip
Update src/{ns,mac}*.m to use bignum-compatible macros
* src/nsterm.m: * src/nsselect.m: * src/nsmenu.m: * src/nsimage.m: * src/nsfont.m: * src/nsfns.m: * src/macfont.m: Replace "make_number" -> "make_fixnum", "XINT" -> "XFIXNUM", "XFASTINT" -> "XFIXNAT", "TYPE_RANGED_INTEGERP" -> "TYPE_RANGED_FIXNUMP", "RANGED_INTEGERP" -> "RANGED_FIXNUMP", "CHECK_NATNUM" -> "CHECK_FIXNAT", "CHECK_NUMBER" -> "CHECK_FIXNUM", "INTEGERP" -> "FIXNUMP", "NUMBERP" -> "FIXED_OR_FLOATP", as done in the following changes: 2018-07-06 Rename integerp->fixnum, etc, in preparation for bignums (42fe787b) 2018-08-07 More macro renamings for bignum (d1ec3a0a)
Diffstat (limited to 'src/nsselect.m')
-rw-r--r--src/nsselect.m14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/nsselect.m b/src/nsselect.m
index c72f179ab38..b7e134b5466 100644
--- a/src/nsselect.m
+++ b/src/nsselect.m
@@ -90,20 +90,20 @@ static Lisp_Object
90clean_local_selection_data (Lisp_Object obj) 90clean_local_selection_data (Lisp_Object obj)
91{ 91{
92 if (CONSP (obj) 92 if (CONSP (obj)
93 && INTEGERP (XCAR (obj)) 93 && FIXNUMP (XCAR (obj))
94 && CONSP (XCDR (obj)) 94 && CONSP (XCDR (obj))
95 && INTEGERP (XCAR (XCDR (obj))) 95 && FIXNUMP (XCAR (XCDR (obj)))
96 && NILP (XCDR (XCDR (obj)))) 96 && NILP (XCDR (XCDR (obj))))
97 obj = Fcons (XCAR (obj), XCDR (obj)); 97 obj = Fcons (XCAR (obj), XCDR (obj));
98 98
99 if (CONSP (obj) 99 if (CONSP (obj)
100 && INTEGERP (XCAR (obj)) 100 && FIXNUMP (XCAR (obj))
101 && INTEGERP (XCDR (obj))) 101 && FIXNUMP (XCDR (obj)))
102 { 102 {
103 if (XINT (XCAR (obj)) == 0) 103 if (XFIXNUM (XCAR (obj)) == 0)
104 return XCDR (obj); 104 return XCDR (obj);
105 if (XINT (XCAR (obj)) == -1) 105 if (XFIXNUM (XCAR (obj)) == -1)
106 return make_number (- XINT (XCDR (obj))); 106 return make_fixnum (- XFIXNUM (XCDR (obj)));
107 } 107 }
108 108
109 if (VECTORP (obj)) 109 if (VECTORP (obj))