diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2015-01-07 17:52:30 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-01-07 17:53:20 -0800 |
commit | ad5ac01471b6795a5168b5e6fb7230adb08f3217 (patch) | |
tree | a14082bc47669bfbca3836f155306b25316b5df0 | |
parent | d71659fed4eb87eb3edbf8f83fb0e9ed2633fa74 (diff) | |
download | emacs-ad5ac01471b6795a5168b5e6fb7230adb08f3217.tar.gz |
* src/gfilenotify.c (monitor_to_lisp, lisp_to_monitor):
Port recent fix to !USE_LSB_TAG platforms.
-rw-r--r-- | src/gfilenotify.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/gfilenotify.c b/src/gfilenotify.c index 88a40d4cbd9..88222b5bf05 100644 --- a/src/gfilenotify.c +++ b/src/gfilenotify.c @@ -38,14 +38,13 @@ static Lisp_Object watch_list; static Lisp_Object monitor_to_lisp (GFileMonitor *monitor) { - return XIL ((intptr_t) monitor + Lisp_Int0); + return XIL (TAG_PTR (Lisp_Int0, monitor)); } static GFileMonitor * lisp_to_monitor (Lisp_Object watch_descriptor) { - intptr_t int_monitor = XLI (watch_descriptor) - Lisp_Int0; - return (GFileMonitor *) int_monitor; + return XUNTAG (watch_descriptor, Lisp_Int0); } /* This is the callback function for arriving signals from |