/[emacs]/emacs/lisp/emulation/tpu-edt.el
ViewVC logotype

Diff of /emacs/lisp/emulation/tpu-edt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by pj, Wed Oct 3 19:44:55 2001 UTC revision 1.31.4.1 by eliz, Thu May 16 16:13:14 2002 UTC
# Line 1414  They are saved for the TPU-edt undelete- Line 1414  They are saved for the TPU-edt undelete-
1414    
1415  (defun tpu-delete-to-eol (num)  (defun tpu-delete-to-eol (num)
1416    "Delete text up to end of line.    "Delete text up to end of line.
1417  With argument, delete up to to Nth line-end past point.  With argument, delete up to the Nth line-end past point.
1418  They are saved for the TPU-edt undelete-lines command."  They are saved for the TPU-edt undelete-lines command."
1419    (interactive "p")    (interactive "p")
1420    (let ((beg (point)))    (let ((beg (point)))
# Line 1426  They are saved for the TPU-edt undelete- Line 1426  They are saved for the TPU-edt undelete-
1426    
1427  (defun tpu-delete-to-bol (num)  (defun tpu-delete-to-bol (num)
1428    "Delete text back to beginning of line.    "Delete text back to beginning of line.
1429  With argument, delete up to to Nth line-end past point.  With argument, delete up to the Nth line-end past point.
1430  They are saved for the TPU-edt undelete-lines command."  They are saved for the TPU-edt undelete-lines command."
1431    (interactive "p")    (interactive "p")
1432    (let ((beg (point)))    (let ((beg (point)))

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.31.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26