---------- Forwarded message ---------
From:
Luis Henriquez-Perez <luishenriquezperez@gmail.com>Date: Tue, Oct 22, 2019 at 8:41 PM
Subject: Re: bug#21922: Fwd: Patch for fixing "straigh-quote" case
To: Noam Postavsky <
npostavs@gmail.com>
>> I did see your message.
Ok, take your time. I just wanted to make sure I sent this to the right place.
>> I meant to say (looking-at-p "[[:space:]\n]*quote\\_>")
I changed "[[:space:]\n]" -> "[[:space:]]\n" because I think that's what you meant.
I posted the result of these change at the bottom of this reply.
I'm new to contributing patches. Is there anything else I need to do to get this
into emacs?
```elisp
(if (or
(= (point) calculate-lisp-indent-last-sexp)
(eq (char-after (1+ containing-sexp)) ?:)
(eq (char-before containing-sexp) ?')
(let ((quoted-p nil)
(point nil)
(positions (nreverse (butlast (elt state 9)))))
(save-excursion
(while (and positions (not quoted-p))
(setq point (pop positions))
(setq quoted-p
(or (eq (char-before point) ?')
(goto-char (1+ point))
(looking-at-p "[[:space:]]\n*quote\\_>")))))
quoted-p))
;; Containing sexp has nothing before this line
;; except the first element. Indent under that element.
nil
;; Skip the first element, find start of second (the first
;; argument of the function call) and indent under.
(progn (forward-sexp 1)
(parse-partial-sexp (point)
calculate-lisp-indent-last-sexp
0 t)))
```