Mercurial > emacs
comparison src/w16select.c @ 39584:6145836b795c
Use SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing
symbols' value directly.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 05 Oct 2001 09:51:48 +0000 |
parents | 2bec1c202b13 |
children | cdfd4d09b79a |
comparison
equal
deleted
inserted
replaced
39583:936ffa2961ca | 39584:6145836b795c |
---|---|
1 /* 16-bit Windows Selection processing for emacs on MS-Windows | 1 /* 16-bit Windows Selection processing for emacs on MS-Windows |
2 Copyright (C) 1996, 1997 Free Software Foundation. | 2 Copyright (C) 1996, 1997, 2001 Free Software Foundation. |
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 |
712 behavior on X, where killed text is also put into X selection | 712 behavior on X, where killed text is also put into X selection |
713 by the X interface code. (On MSDOS, killed text is only put | 713 by the X interface code. (On MSDOS, killed text is only put |
714 into the clipboard if we run under Windows, so we cannot check | 714 into the clipboard if we run under Windows, so we cannot check |
715 the clipboard alone.) */ | 715 the clipboard alone.) */ |
716 if ((EQ (selection, Qnil) || EQ (selection, QPRIMARY)) | 716 if ((EQ (selection, Qnil) || EQ (selection, QPRIMARY)) |
717 && ! NILP (XSYMBOL (Fintern_soft (build_string ("kill-ring"), | 717 && ! NILP (SYMBOL_VALUE (Fintern_soft (build_string ("kill-ring"), |
718 Qnil))->value)) | 718 Qnil)))) |
719 return Qt; | 719 return Qt; |
720 | 720 |
721 if (EQ (selection, QCLIPBOARD)) | 721 if (EQ (selection, QCLIPBOARD)) |
722 { | 722 { |
723 Lisp_Object val = Qnil; | 723 Lisp_Object val = Qnil; |