diff options
| author | Richard M. Stallman | 1993-05-26 20:33:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-26 20:33:32 +0000 |
| commit | 15ab234bf9d52ebf509c12d15bcd2c736d9af4c9 (patch) | |
| tree | 39364c69708c5f22b90406009cd7f08358370b6e /src | |
| parent | f00de7c30d40fbff7ad60d7fb6ce3787c74f1a94 (diff) | |
| download | emacs-15ab234bf9d52ebf509c12d15bcd2c736d9af4c9.tar.gz emacs-15ab234bf9d52ebf509c12d15bcd2c736d9af4c9.zip | |
(x_set_cursor_type): If arg not recognized, use box cursor.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfns.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/xfns.c b/src/xfns.c index 1d08900079a..b073b9161c2 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -758,11 +758,18 @@ x_set_cursor_type (f, arg, oldval) | |||
| 758 | { | 758 | { |
| 759 | if (EQ (arg, Qbar)) | 759 | if (EQ (arg, Qbar)) |
| 760 | FRAME_DESIRED_CURSOR (f) = bar_cursor; | 760 | FRAME_DESIRED_CURSOR (f) = bar_cursor; |
| 761 | else if (EQ (arg, Qbox)) | 761 | else |
| 762 | FRAME_DESIRED_CURSOR (f) = filled_box_cursor; | 762 | #if 0 |
| 763 | if (EQ (arg, Qbox)) | ||
| 764 | #endif | ||
| 765 | FRAME_DESIRED_CURSOR (f) = filled_box_cursor; | ||
| 766 | /* Error messages commented out because people have trouble fixing | ||
| 767 | .Xdefaults with Emacs, when it has something bad in it. */ | ||
| 768 | #if 0 | ||
| 763 | else | 769 | else |
| 764 | error | 770 | error |
| 765 | ("the `cursor-type' frame parameter should be either `bar' or `box'"); | 771 | ("the `cursor-type' frame parameter should be either `bar' or `box'"); |
| 772 | #endif | ||
| 766 | 773 | ||
| 767 | /* Make sure the cursor gets redrawn. This is overkill, but how | 774 | /* Make sure the cursor gets redrawn. This is overkill, but how |
| 768 | often do people change cursor types? */ | 775 | often do people change cursor types? */ |