/[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.33 by pj, Tue Dec 25 11:20:28 2001 UTC revision 1.33.4.1 by miles, Fri Apr 4 06:20:17 2003 UTC
# Line 1418  They are saved for the TPU-edt undelete- Line 1418  They are saved for the TPU-edt undelete-
1418    
1419  (defun tpu-delete-to-eol (num)  (defun tpu-delete-to-eol (num)
1420    "Delete text up to end of line.    "Delete text up to end of line.
1421  With argument, delete up to to Nth line-end past point.  With argument, delete up to the Nth line-end past point.
1422  They are saved for the TPU-edt undelete-lines command."  They are saved for the TPU-edt undelete-lines command."
1423    (interactive "p")    (interactive "p")
1424    (let ((beg (point)))    (let ((beg (point)))
# Line 1430  They are saved for the TPU-edt undelete- Line 1430  They are saved for the TPU-edt undelete-
1430    
1431  (defun tpu-delete-to-bol (num)  (defun tpu-delete-to-bol (num)
1432    "Delete text back to beginning of line.    "Delete text back to beginning of line.
1433  With argument, delete up to to Nth line-end past point.  With argument, delete up to the Nth line-end past point.
1434  They are saved for the TPU-edt undelete-lines command."  They are saved for the TPU-edt undelete-lines command."
1435    (interactive "p")    (interactive "p")
1436    (let ((beg (point)))    (let ((beg (point)))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.33.4.1

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