Re: master 192f935 1/3: Add 'define-keymap' and 'defvar-keymap'

[Madhu]

* Lars Ingebrigtsen <874k9xnlmx.fsf@gnus.org> :
Wrote on Mon, 04 Oct 2021 12:13:10 +0200:

> Adam Porter <adam@alphapapa.net> writes:
>
>> That includes quoted lists, like:
>>
>>   '(:foo 1
>>     :zot 2)
>>
>> right?  If so, yes, please.

BTW To get the similar behaviour with cl-indent I had the following
kludge for "(:def*" forms.  Maybe there is a better way to do this?

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 26507578c32..98ccc68ddc4 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -351,6 +351,7 @@ common-lisp-indent-function-1
                     method (lisp-indent-find-method tem))
               ;; The pleblisp package feature
               (when (and (null tem)
+                        (not (string-match "^:" function)) ;XXX 090210
                          (string-match ":[^:]+" function))
                 (setq function (substring function (1+ (match-beginning 0)))
                       tem (intern-soft function)
@@ -390,6 +391,8 @@ common-lisp-indent-function-1
                    (setq method lisp-indent-defun-method)))
 
             (cond ((and (or (eq (char-after (1- containing-sexp)) ?\')
+                           (and (eq (char-after (1+ containing-sexp)) ?\:) 
;XXX 090509
+                                (= depth 0))
                            (and (not lisp-backquote-indentation)
                                 (eq (char-after (1- containing-sexp)) ?\`)))
                         (not (eq (char-after (- containing-sexp 2)) ?\#)))
.