[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/indent.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/indent.el |
Date: |
Mon, 20 Sep 2004 12:21:50 -0400 |
Index: emacs/lisp/indent.el
diff -c emacs/lisp/indent.el:1.56 emacs/lisp/indent.el:1.57
*** emacs/lisp/indent.el:1.56 Sat Aug 28 16:13:32 2004
--- emacs/lisp/indent.el Mon Sep 20 16:09:32 2004
***************
*** 164,177 ****
(interactive (list (prefix-numeric-value current-prefix-arg) t))
(beginning-of-line n)
(skip-chars-forward " \t")
! (let ((lm (current-left-margin))
! (cc (current-column)))
! (cond ((> cc lm)
! (if (> (move-to-column lm force) lm)
! ;; If lm is in a tab and we are not forcing, move before tab
! (backward-char 1)))
! ((and force (< cc lm))
! (indent-to-left-margin)))))
;; This used to be the default indent-line-function,
;; used in Fundamental Mode, Text Mode, etc.
--- 164,181 ----
(interactive (list (prefix-numeric-value current-prefix-arg) t))
(beginning-of-line n)
(skip-chars-forward " \t")
! (if (minibufferp (current-buffer))
! (if (save-excursion (beginning-of-line) (bobp))
! (goto-char (minibuffer-prompt-end))
! (beginning-of-line))
! (let ((lm (current-left-margin))
! (cc (current-column)))
! (cond ((> cc lm)
! (if (> (move-to-column lm force) lm)
! ;; If lm is in a tab and we are not forcing, move before tab
! (backward-char 1)))
! ((and force (< cc lm))
! (indent-to-left-margin))))))
;; This used to be the default indent-line-function,
;; used in Fundamental Mode, Text Mode, etc.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/indent.el,
Richard M . Stallman <=