/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

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

revision 1.621 by rms, Mon Sep 22 15:11:02 2003 UTC revision 1.622 by monnier, Mon Oct 27 15:20:46 2003 UTC
# Line 303  In programming language modes, this is t Line 303  In programming language modes, this is t
303  In some text modes, where TAB inserts a tab, this indents to the  In some text modes, where TAB inserts a tab, this indents to the
304  column specified by the function `current-left-margin'."  column specified by the function `current-left-margin'."
305    (interactive "*")    (interactive "*")
   (delete-horizontal-space t)  
306    (let ((pos (point)))    (let ((pos (point)))
307      ;; Be careful to insert the newline before indenting the line.      ;; Be careful to insert the newline before indenting the line.
308      ;; Otherwise, the indentation might be wrong.      ;; Otherwise, the indentation might be wrong.
309      (newline)      (newline)
310      (save-excursion      (save-excursion
311        (goto-char pos)        (goto-char pos)
312        (indent-according-to-mode))        (indent-according-to-mode)
313          (delete-horizontal-space t))
314      (indent-according-to-mode)))      (indent-according-to-mode)))
315    
316  (defun quoted-insert (arg)  (defun quoted-insert (arg)

Legend:
Removed from v.1.621  
changed lines
  Added in v.1.622

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