Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 8efd647ea9ca
children 558f606b08ae
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the 22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Synched up with: Not synched. 26 ;;; Synched up with: Not synched.
27 27
133 133
134 134
135 (defvar x-pointers-initialized nil) 135 (defvar x-pointers-initialized nil)
136 136
137 (defun x-init-pointer-shape (device) 137 (defun x-init-pointer-shape (device)
138 "Initializes the mouse-pointers of the given device from the resource 138 "Initialize the mouse-pointers of DEVICE from the X resource database."
139 database."
140 (if x-pointers-initialized ; only do it when the first device is created 139 (if x-pointers-initialized ; only do it when the first device is created
141 nil 140 nil
142 (set-glyph-image text-pointer-glyph 141 (set-glyph-image text-pointer-glyph
143 (or (x-get-resource "textPointer" "Cursor" 'string device) 142 (or (x-get-resource "textPointer" "Cursor" 'string device)
144 "xterm")) 143 "xterm"))