home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / bug / 1612 < prev    next >
Encoding:
Text File  |  1993-01-08  |  1.8 KB  |  52 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!nada.kth.se!d90-awe
  3. From: d90-awe@nada.kth.se
  4. Subject: quoted-insert inserts in overwrite-mode
  5. Message-ID: <9301071332.AA00861@monicaz.nada.kth.se>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Thu, 7 Jan 1993 15:32:23 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 39
  12.  
  13. "GNU Emacs 18.59.17 of Sun Nov 22 1992 on baki.nada.kth.se (berkeley-unix)"
  14.  
  15. The function self-insert-command inserts unless in overwrite-mode,
  16. then it overwrites. But quoted-insert always inserts. It should
  17. overwrite if in overwrite-mode.
  18.  
  19. Patch:
  20. *** /tmp/simple.el      Thu Jan  7 14:17:58 1993
  21. --- /src/packages/gnu/emacs-18.59/lisp/simple.el        Wed Apr 15 10:13:32 1992
  22. ***************
  23. *** 43,54 ****
  24.   (defun quoted-insert (arg)
  25.     "Read next input character and insert it.
  26.   Useful for inserting control characters.
  27.   You may also type up to 3 octal digits, to insert a character with that code"
  28.     (interactive "*p")
  29. !   (let ((last-command-char (read-quoted-char)))
  30. !     (self-insert-command arg)))
  31.   
  32.   (defun delete-indentation (&optional arg)
  33.     "Join this line to previous and fix up whitespace at join.
  34.   With argument, join this line to following line."
  35.     (interactive "*P")
  36. --- 43,56 ----
  37.   (defun quoted-insert (arg)
  38.     "Read next input character and insert it.
  39.   Useful for inserting control characters.
  40.   You may also type up to 3 octal digits, to insert a character with that code"
  41.     (interactive "*p")
  42. !   (let ((char (read-quoted-char)))
  43. !     (while (> arg 0)
  44. !       (insert char)
  45. !       (setq arg (1- arg)))))
  46.   
  47.   (defun delete-indentation (&optional arg)
  48.     "Join this line to previous and fix up whitespace at join.
  49.   With argument, join this line to following line."
  50.     (interactive "*P")
  51.  
  52.