Programming in Emacs Lisp
16.13 Miscellaneous Settings for a `.emacs' File
Here are a few miscellaneous settings:
Set the shape and color of the mouse cursor:
; Cursor shapes are defined in
; for example, the `target' cursor is number 128;
; the `top_left_arrow' cursor is number 132.
(let ((mpointer (x-get-resource "*mpointer"
;; If you have not set your mouse pointer
;; then set it, otherwise leave as is:
(if (eq mpointer nil)
(setq mpointer "132")) ; top_left_arrow
(setq x-pointer-shape (string-to-int mpointer))