Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 104665:dd47ce8e136c
* emulation/viper-init.el (viper-restore-cursor-type):
* emulation/cua-base.el (cua--update-indications):
Replace default-cursor-type with (default-value 'cursor-type).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 28 Aug 2009 04:24:59 +0000 |
| parents | a9dc0e7c3f2b |
| children | bd2966850aac |
comparison
equal
deleted
inserted
replaced
| 104664:50fdf250e26b | 104665:dd47ce8e136c |
|---|---|
| 1194 (stringp color) | 1194 (stringp color) |
| 1195 (not (equal color (frame-parameter nil 'cursor-color)))) | 1195 (not (equal color (frame-parameter nil 'cursor-color)))) |
| 1196 (set-cursor-color color)) | 1196 (set-cursor-color color)) |
| 1197 (if (and type | 1197 (if (and type |
| 1198 (symbolp type) | 1198 (symbolp type) |
| 1199 (not (eq type default-cursor-type))) | 1199 (not (eq type (default-value 'cursor-type)))) |
| 1200 (setq default-cursor-type type)))) | 1200 (setq-default cursor-type type)))) |
| 1201 | 1201 |
| 1202 | 1202 |
| 1203 ;;; Pre-command hook | 1203 ;;; Pre-command hook |
| 1204 | 1204 |
| 1205 (defun cua--pre-command-handler-1 () | 1205 (defun cua--pre-command-handler-1 () |