Mercurial > hg > xemacs-beta
diff src/cmds.c @ 265:8efd647ea9ca r20-5b31
Import from CVS: tag r20-5b31
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:25:37 +0200 |
parents | 0e522484dd2a |
children | c5d627a313b1 |
line wrap: on
line diff
--- a/src/cmds.c Mon Aug 13 10:24:47 2007 +0200 +++ b/src/cmds.c Mon Aug 13 10:25:37 2007 +0200 @@ -41,16 +41,12 @@ /* This is the command that set up Vself_insert_face. */ Lisp_Object Vself_insert_face_command; - -/* t means beep when movement would take point past (point-min) or */ -/* (point-max) */ -int signal_error_on_buffer_boundary; DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /* Move point right ARG characters (left if ARG negative). +On attempt to pass end of buffer, stop and signal `end-of-buffer'. +On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. On reaching end of buffer, stop and signal error. -Error signaling is suppressed if `signal-error-on-buffer-boundary' -is nil. If BUFFER is nil, the current buffer is assumed. */ (arg, buffer)) { @@ -72,18 +68,14 @@ if (new_point < BUF_BEGV (buf)) { BUF_SET_PT (buf, BUF_BEGV (buf)); - if (signal_error_on_buffer_boundary) - Fsignal (Qbeginning_of_buffer, Qnil); - else - return Qnil; + Fsignal (Qbeginning_of_buffer, Qnil); + return Qnil; } if (new_point > BUF_ZV (buf)) { BUF_SET_PT (buf, BUF_ZV (buf)); - if (signal_error_on_buffer_boundary) - Fsignal (Qend_of_buffer, Qnil); - else - return Qnil; + Fsignal (Qend_of_buffer, Qnil); + return Qnil; } BUF_SET_PT (buf, new_point); @@ -94,9 +86,8 @@ DEFUN ("backward-char", Fbackward_char, 0, 2, "_p", /* Move point left ARG characters (right if ARG negative). -On attempt to pass beginning or end of buffer, stop and signal error. -Error signaling is suppressed if `signal-error-on-buffer-boundary' -is nil. If BUFFER is nil, the current buffer is assumed. +On attempt to pass end of buffer, stop and signal `end-of-buffer'. +On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. */ (arg, buffer)) { @@ -510,10 +501,4 @@ More precisely, a char with closeparen syntax is self-inserted. */ ); Vblink_paren_function = Qnil; - - DEFVAR_BOOL ("signal-error-on-buffer-boundary", &signal_error_on_buffer_boundary /* -*t means beep when movement would take point past (point-min) or -\(point-max). -*/ ); - signal_error_on_buffer_boundary = 1; }