Mercurial > emacs

comparison src/keyboard.h @ 39973:579177964efa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting with lisp system changes.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Oct 2001 09:09:51 +0000
parents 1af81820a584
children 7e221442bb45
comparison
equal deleted inserted replaced
39972:b2479b43184b 39973:579177964efa
258 #define EVENT_CLICK_COUNT(event) (Fnth ((event), make_number (2))) 258 #define EVENT_CLICK_COUNT(event) (Fnth ((event), make_number (2)))
259 259
260 /* Extract the fields of a position. */ 260 /* Extract the fields of a position. */
261 #define POSN_WINDOW(posn) (XCAR (posn)) 261 #define POSN_WINDOW(posn) (XCAR (posn))
262 #define POSN_BUFFER_POSN(posn) (XCAR (XCDR (posn))) 262 #define POSN_BUFFER_POSN(posn) (XCAR (XCDR (posn)))
263 #define POSN_BUFFER_SET_POSN(posn,x) (XSETCAR (XCDR (posn), (x)))
263 #define POSN_WINDOW_POSN(posn) (XCAR (XCDR (XCDR (posn)))) 264 #define POSN_WINDOW_POSN(posn) (XCAR (XCDR (XCDR (posn))))
264 #define POSN_TIMESTAMP(posn) \ 265 #define POSN_TIMESTAMP(posn) \
265 (XCAR (XCDR (XCDR (XCDR (posn))))) 266 (XCAR (XCDR (XCDR (XCDR (posn)))))
266 #define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4))) 267 #define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4)))
267 268