Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
400 is 'backward-delete-char, with 'backward-delete-char-untabify being a 400 is 'backward-delete-char, with 'backward-delete-char-untabify being a
401 popular alternate setting." 401 popular alternate setting."
402 :type 'function 402 :type 'function
403 :group 'editing-basics) 403 :group 'editing-basics)
404 404
405 (eval-when-compile 405 ;; Trash me, baby.
406 (defmacro delete-forward-p () 406 (defsubst delete-forward-p ()
407 '(and delete-key-deletes-forward 407 (and delete-key-deletes-forward
408 (or (eq 'tty (device-type)) 408 (or (not (eq (device-type) 'x))
409 (x-keysym-on-keyboard-sans-modifiers-p 'backspace))))) 409 (x-keysym-on-keyboard-sans-modifiers-p 'backspace))))
410 410
411 (defun backward-or-forward-delete-char (arg) 411 (defun backward-or-forward-delete-char (arg)
412 "Delete either one character backwards or one character forwards. 412 "Delete either one character backwards or one character forwards.
413 Controlled by the state of `delete-key-deletes-forward' and whether the 413 Controlled by the state of `delete-key-deletes-forward' and whether the
414 BackSpace keysym even exists on your keyboard. If you don't have a 414 BackSpace keysym even exists on your keyboard. If you don't have a