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;