GNU bug report logs - #18348
common-lisp-indent-function: undesirable indent of (back)quoted list

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 18348 in the body.
You can then email your comments to 18348 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Drew Adams <drew.adams <at> oracle.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.4.50; `common-lisp-indent-function'
Date: Thu, 28 Aug 2014 15:03:29 -0700 (PDT)

emacs -Q

In emacs-lisp-mode, do this:

(set (make-local-variable 'lisp-indent-function)
     'common-lisp-indent-function)

In Emacs 20, this Emacs-Lisp sexp indents correctly (IMO) to this, using
`C-M-q':

(toto beg end
      `(foo     ,bar
        keymap      ,map
        mouse-face  highlight
        help-echo   "jjjjjjjjjjjjjjjjjjjj"))

Starting with Emacs 22, it indents to this, which is bad (IMO):

(toto beg end
      `(foo     ,bar
                keymap      ,map
                mouse-face  highlight
                help-echo   "jjjjjjjjjjjjjjjjjjjj"))

If this is really what Emacs Dev prefers (why?), can you please let me
know a simple way to get the Emacs 20 indentation instead?


In GNU Emacs 24.4.50.1 (i686-pc-mingw32)
 of 2014-08-15 on LEG570
Bzr revision: 117706 rgm <at> gnu.org-20140815043406-p5hbu97cbm7pulcn
Windowing system distributor `Microsoft Corp.', version 6.1.7601
Configured using:
 `configure --enable-checking 'CFLAGS=-O0 -g3' CPPFLAGS=-DGLYPH_DEBUG=1'

Message #10 received at 18348 <at> debbugs.gnu.org (full text, mbox):

From: Lars Ingebrigtsen <larsi <at> gnus.org>
To: Drew Adams <drew.adams <at> oracle.com>
Cc: 18348 <at> debbugs.gnu.org
Subject: Re: bug#18348: 24.4.50; `common-lisp-indent-function'
Date: Wed, 09 Oct 2019 03:21:59 +0200

Drew Adams <drew.adams <at> oracle.com> writes:

> In emacs-lisp-mode, do this:
>
> (set (make-local-variable 'lisp-indent-function)
>      'common-lisp-indent-function)
>
> In Emacs 20, this Emacs-Lisp sexp indents correctly (IMO) to this, using
> `C-M-q':
>
> (toto beg end
>       `(foo     ,bar
>         keymap      ,map
>         mouse-face  highlight
>         help-echo   "jjjjjjjjjjjjjjjjjjjj"))
>
> Starting with Emacs 22, it indents to this, which is bad (IMO):
>
> (toto beg end
>       `(foo     ,bar
>                 keymap      ,map
>                 mouse-face  highlight
>                 help-echo   "jjjjjjjjjjjjjjjjjjjj"))
>
> If this is really what Emacs Dev prefers (why?), can you please let me
> know a simple way to get the Emacs 20 indentation instead?

I guess it looks extra awkward because of the strange way you add white
space, but I guess the mode interprets the `(foo bar ...) form as being
a function call-like structure instead of a list of pairs.

Funnily enough, if you use '(foo ,bar ...) it indents the way you want.
It seems awfully inconsistent to indent one way with ` and another way
with '.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Message #13 received at 18348 <at> debbugs.gnu.org (full text, mbox):

From: Lars Ingebrigtsen <larsi <at> gnus.org>
To: Drew Adams <drew.adams <at> oracle.com>
Cc: 18348 <at> debbugs.gnu.org
Subject: Re: bug#18348: 24.4.50; `common-lisp-indent-function'
Date: Wed, 09 Oct 2019 03:25:30 +0200

Lars Ingebrigtsen <larsi <at> gnus.org> writes:

>> If this is really what Emacs Dev prefers (why?), can you please let me
>> know a simple way to get the Emacs 20 indentation instead?

I forgot about this: Set `lisp-backquote-indentation' to nil.

I think changing the default of that variable might be nice, but I guess
that train left the station a decade ago, so I'm closing this bug report.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.