diff options
| author | Ken Raeburn | 2001-10-16 09:09:51 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2001-10-16 09:09:51 +0000 |
| commit | f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f (patch) | |
| tree | 43eb51ff0ca4af1705387403827ef210098f2da8 /src/keyboard.h | |
| parent | 018ba359ab456f6a43f3acea0c15df616aa0ad02 (diff) | |
| download | emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.tar.gz emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.zip | |
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
with lisp system changes.
Diffstat (limited to 'src/keyboard.h')
| -rw-r--r-- | src/keyboard.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/keyboard.h b/src/keyboard.h index ff867f0c268..625f40c94d7 100644 --- a/src/keyboard.h +++ b/src/keyboard.h | |||
| @@ -260,6 +260,7 @@ extern Lisp_Object item_properties; | |||
| 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))))) |