Mercurial > emacs

comparison src/keyboard.c @ 22279:e50e9ea93700

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command_loop_1): In shortcuts for forward-char etc,, use FETCH_CHAR not FETCH_BYTE.
author Richard M. Stallman <rms@gnu.org>
date Thu, 28 May 1998 18:10:20 +0000
parents ce3f89a932d1
children 124e852c4cdf
comparison
equal deleted inserted replaced
22278:7a9f75f6e065 22279:e50e9ea93700
1304 do them directly. */ 1304 do them directly. */
1305 if (EQ (this_command, Qforward_char) && PT < ZV) 1305 if (EQ (this_command, Qforward_char) && PT < ZV)
1306 { 1306 {
1307 struct Lisp_Char_Table *dp 1307 struct Lisp_Char_Table *dp
1308 = window_display_table (XWINDOW (selected_window)); 1308 = window_display_table (XWINDOW (selected_window));
1309 lose = FETCH_BYTE (PT_BYTE); 1309 lose = FETCH_CHAR (PT_BYTE);
1310 SET_PT (PT + 1); 1310 SET_PT (PT + 1);
1311 if ((dp 1311 if ((dp
1312 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) 1312 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
1313 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 1313 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
1314 : (NILP (DISP_CHAR_VECTOR (dp, lose)) 1314 : (NILP (DISP_CHAR_VECTOR (dp, lose))
1334 else if (EQ (this_command, Qbackward_char) && PT > BEGV) 1334 else if (EQ (this_command, Qbackward_char) && PT > BEGV)
1335 { 1335 {
1336 struct Lisp_Char_Table *dp 1336 struct Lisp_Char_Table *dp
1337 = window_display_table (XWINDOW (selected_window)); 1337 = window_display_table (XWINDOW (selected_window));
1338 SET_PT (PT - 1); 1338 SET_PT (PT - 1);
1339 lose = FETCH_BYTE (PT_BYTE); 1339 lose = FETCH_CHAR (PT_BYTE);
1340 if ((dp 1340 if ((dp
1341 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) 1341 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
1342 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 1342 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
1343 : (NILP (DISP_CHAR_VECTOR (dp, lose)) 1343 : (NILP (DISP_CHAR_VECTOR (dp, lose))
1344 && (lose >= 0x20 && lose < 0x7f))) 1344 && (lose >= 0x20 && lose < 0x7f)))