diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2001-10-16 09:09:51 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2001-10-16 09:09:51 +0000 |
| commit | f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f (patch) | |
| tree | 43eb51ff0ca4af1705387403827ef210098f2da8 /src/keyboard.h | |
| parent | 018ba359ab456f6a43f3acea0c15df616aa0ad02 (diff) | |
| download | emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.tar.gz | |
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; /* Extract the fields of a position. */ #define POSN_WINDOW(posn) (XCAR (posn)) #define POSN_BUFFER_POSN(posn) (XCAR (XCDR (posn))) +#define POSN_BUFFER_SET_POSN(posn,x) (XSETCAR (XCDR (posn), (x))) #define POSN_WINDOW_POSN(posn) (XCAR (XCDR (XCDR (posn)))) #define POSN_TIMESTAMP(posn) \ (XCAR (XCDR (XCDR (XCDR (posn))))) |