[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: address@hidden: shell-script-mode case indenting]
From: |
Michael Welsh Duggan |
Subject: |
Re: address@hidden: shell-script-mode case indenting] |
Date: |
Sun, 01 Oct 2006 14:38:51 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
Richard Stallman <address@hidden> writes:
> And now indentation of ordinary case blocks is wrong:
>
> Should we take out that change, or what?
This should fix the problem. I was originally messed up by the fact
that the `unless' body in the original code was not indented, and due
to that misplaced a parentheses.
Index: sh-script.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/sh-script.el,v
retrieving revision 1.187
diff -u -p -c -r1.187 sh-script.el
cvs diff: conflicting specifications of output style
*** sh-script.el 30 Sep 2006 09:38:45 -0000 1.187
--- sh-script.el 1 Oct 2006 18:35:31 -0000
*************** we go to the end of the previous line an
*** 2472,2479 ****
(point))
(skip-chars-backward " \t;")
(unless (looking-at "\\s-*;;")
! (skip-chars-backward "^)}];\"'`({[")
! (setq c (char-before))
(sh-debug "stopping at %d c is %s start=%d min-point=%d"
(point) c start min-point)
(if (< (point) min-point)
--- 2472,2479 ----
(point))
(skip-chars-backward " \t;")
(unless (looking-at "\\s-*;;")
! (skip-chars-backward "^)}];\"'`({[")
! (setq c (char-before)))
(sh-debug "stopping at %d c is %s start=%d min-point=%d"
(point) c start min-point)
(if (< (point) min-point)
*************** we go to the end of the previous line an
*** 2508,2514 ****
;; c -- return a string
(char-to-string c)
))
! )))))
(defun sh-this-is-a-continuation ()
--- 2508,2514 ----
;; c -- return a string
(char-to-string c)
))
! ))))
(defun sh-this-is-a-continuation ()
--
Michael Welsh Duggan
(address@hidden)