procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(move-to-left-margin): Special case for minibuffer.

Browse source
This commit is contained in:
Richard M. Stallman 2004-09-20 16:09:32 +00:00
parent fd4f1b364f
commit 1d1c5af904
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/indent.el
View file

@ -164,14 +164,18 @@ interactively or with optional argument FORCE, it will be fixed."
(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)))))
(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.