Mercurial > hg > xemacs-beta
comparison lisp/simple.el @ 239:41f2f0e326e9 r20-5b18
Import from CVS: tag r20-5b18
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:15:48 +0200 |
| parents | 85a06df23a9a |
| children | f220cc83d72e |
comparison
equal
deleted
inserted
replaced
| 238:b5f2e56b938d | 239:41f2f0e326e9 |
|---|---|
| 387 "*If non-nil, the DEL key will erase one character forwards. | 387 "*If non-nil, the DEL key will erase one character forwards. |
| 388 If nil, the DEL key will erase one character backwards." | 388 If nil, the DEL key will erase one character backwards." |
| 389 :type 'boolean | 389 :type 'boolean |
| 390 :group 'editing-basics) | 390 :group 'editing-basics) |
| 391 | 391 |
| 392 (defcustom backward-delete-function 'backward-delete-char | |
| 393 "*Function called to delete backwards on a delete keypress. | |
| 394 If `delete-key-deletes-forward' is nil, `backward-or-forward-delete-char' | |
| 395 calls this function to erase one character backwards. Default value | |
| 396 is 'backward-delete-char, with 'backward-delete-char-untabify being a | |
| 397 popular alternate setting." | |
| 398 :type 'function | |
| 399 :group 'editing-basics) | |
| 400 | |
| 392 (defun backward-or-forward-delete-char (arg) | 401 (defun backward-or-forward-delete-char (arg) |
| 393 "Delete either one character backwards or one character forwards. | 402 "Delete either one character backwards or one character forwards. |
| 394 Controlled by the state of `delete-key-deletes-forward' and whether the | 403 Controlled by the state of `delete-key-deletes-forward' and whether the |
| 395 BackSpace keysym even exists on your keyboard. If you don't have a | 404 BackSpace keysym even exists on your keyboard. If you don't have a |
| 396 BackSpace keysym, the delete key should always delete one character | 405 BackSpace keysym, the delete key should always delete one character |
| 398 (interactive "*p") | 407 (interactive "*p") |
| 399 (if (and delete-key-deletes-forward | 408 (if (and delete-key-deletes-forward |
| 400 (or (eq 'tty (device-type)) | 409 (or (eq 'tty (device-type)) |
| 401 (x-keysym-on-keyboard-p "BackSpace"))) | 410 (x-keysym-on-keyboard-p "BackSpace"))) |
| 402 (delete-char arg) | 411 (delete-char arg) |
| 403 (delete-backward-char arg))) | 412 (funcall backward-delete-function arg))) |
| 404 | 413 |
| 405 (defun backward-or-forward-kill-word (arg) | 414 (defun backward-or-forward-kill-word (arg) |
| 406 "Delete either one word backwards or one word forwards. | 415 "Delete either one word backwards or one word forwards. |
| 407 Controlled by the state of `delete-key-deletes-forward' and whether the | 416 Controlled by the state of `delete-key-deletes-forward' and whether the |
| 408 BackSpace keysym even exists on your keyboard. If you don't have a | 417 BackSpace keysym even exists on your keyboard. If you don't have a |
| 3060 (cdr (car other-headers)) "\n")) | 3069 (cdr (car other-headers)) "\n")) |
| 3061 (setq other-headers (cdr other-headers))) | 3070 (setq other-headers (cdr other-headers))) |
| 3062 t))) | 3071 t))) |
| 3063 | 3072 |
| 3064 (define-mail-user-agent 'mh-e-user-agent | 3073 (define-mail-user-agent 'mh-e-user-agent |
| 3065 'mh-smail-batch 'mh-send-letter 'mh-fully-kill-draft | 3074 'mh-user-agent-compose 'mh-send-letter 'mh-fully-kill-draft |
| 3066 'mh-before-send-letter-hook) | 3075 'mh-before-send-letter-hook) |
| 3067 | 3076 |
| 3068 (defun compose-mail (&optional to subject other-headers continue | 3077 (defun compose-mail (&optional to subject other-headers continue |
| 3069 switch-function yank-action send-actions) | 3078 switch-function yank-action send-actions) |
| 3070 "Start composing a mail message to send. | 3079 "Start composing a mail message to send. |