mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(sh-indent-line): Avoid infinite loop

Browse Source 
on indented line at start of buffer, when calculating PREVIOUS.
This commit is contained in:
Richard M. Stallman 1997-08-23 05:19:09 +00:00
parent d343b6f10a
commit 54c87e2714
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/sh-script.el
View File

@ -928,11 +928,13 @@ in ALIST."
(defun sh-indent-line ()
"Indent as far as preceding non-empty line, then by steps of `sh-indentation'.
"Indent a line for Sh mode (shell script mode).
Indent as far as preceding non-empty line, then by steps of `sh-indentation'.
Lines containing only comments are considered empty."
(interactive)
(let ((previous (save-excursion
(while (and (not (bobp))
(while (and (progn (beginning-of-line)
(not (bobp)))
(progn
(forward-line -1)
(back-to-indentation)
@ -940,6 +942,7 @@ Lines containing only comments are considered empty."
(eq (following-char) ?#)))))
(current-column)))
current)
(debug)
(save-excursion
(indent-to (if (eq this-command 'newline-and-indent)
previous