comparison src/fns.c @ 20567:d56b7d5c18e8

(internal_equal): For markers, use bytepos instead of bufpos.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Jan 1998 21:28:56 +0000
parents 3fb425cf6a83
children 04a436e5760b
comparison
equal deleted inserted replaced
20566:0877f6e6fc15 20567:d56b7d5c18e8
1 /* Random utility Lisp functions. 1 /* Random utility Lisp functions.
2 Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc. 2 Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc.
3 3
4 This file is part of GNU Emacs. 4 This file is part of GNU Emacs.
5 5
6 GNU Emacs is free software; you can redistribute it and/or modify 6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 7 it under the terms of the GNU General Public License as published by
1139 } 1139 }
1140 if (MARKERP (o1)) 1140 if (MARKERP (o1))
1141 { 1141 {
1142 return (XMARKER (o1)->buffer == XMARKER (o2)->buffer 1142 return (XMARKER (o1)->buffer == XMARKER (o2)->buffer
1143 && (XMARKER (o1)->buffer == 0 1143 && (XMARKER (o1)->buffer == 0
1144 || XMARKER (o1)->bufpos == XMARKER (o2)->bufpos)); 1144 || XMARKER (o1)->bytepos == XMARKER (o2)->bytepos));
1145 } 1145 }
1146 break; 1146 break;
1147 1147
1148 case Lisp_Vectorlike: 1148 case Lisp_Vectorlike:
1149 { 1149 {