* bug#10094: 24.0.91; M-C-q indents LOOP wrong
@ 2011-11-21 16:05 Lars Magne Ingebrigtsen
2011-11-21 16:49 ` Helmut Eller
2011-11-21 22:00 ` Lars Magne Ingebrigtsen
0 siblings, 2 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2011-11-21 16:05 UTC (permalink / raw)
To: 10094
If you use `common-lisp-indent-function', and you type in the following
function (using TAB) to indent, you get the following:
(defun foo ()
(loop for z from 1 upto 5
do (princ z)
(terpri)))
If you then `M-C-q' to fill the function, you end up with this:
(defun foo ()
(loop for z from 1 upto 5
do (princ z)
(terpri)))
I've debugged this slightly, and the problem seems to be that
`calculate-lisp-indent' is called to compute the indentation of the DO,
but then isn't called to compute the indentation of the forms.
I don't have time to debug this further right now, but unless anybody
has an obvious solution to this, I'll try to fix this myself.
In GNU Emacs 24.0.91.4 (x86_64-unknown-linux-gnu, GTK+ Version 2.24.6)
of 2011-11-17 on stories
Windowing system distributor `The X.Org Foundation', version 11.0.10402000
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: en_US
value of $XMODIFIERS: nil
locale-coding-system: iso-latin-1-unix
default enable-multibyte-characters: t
Major mode: Change Log
Minor modes in effect:
bug-reference-mode: t
diff-auto-refine-mode: t
tooltip-mode: t
mouse-wheel-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
Recent input:
<return> , SPC SPC . d d <return> n n n n n SPC q <return>
<return> q s g g C-x C-f <backspace> <backspace> <backspace>
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> <backspace> <backspace> s r <tab> e m <tab>
/ <backspace> / t r <tab> <return> M-x f i n d - l
i b r a <tab> <return> c l - i n d e n t <return> <next>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <up> <up> <up> <up>
<up> <up> <up> <up> <up> C-x v l <up> <up> C-x o <up>
C-y C-k C-k <up> <right> <backspace> <tab> C-x C-s
C-x o <next> C-x o C-x v = C-x o C-x v v I n d e n
t SPC C-a C-x o C-x 4 a I n d e n t SPC b l a n k SPC
l i n e s SPC a s SPC <M-backspace> t h e SPC s a m
e SPC a s SPC k e y w o r d s . C-x C-s C-x o C-x v
= C-x o C-x o C-x o C-x b <return> <backspace> , SPC
s i n c e SPC t h e SPC o n l y SPC t h i C-x 1 M-x
r e p o <tab> r <tab> <return>
Recent messages:
Mark set
Press C-c C-c when you are done editing.
Enter a change comment. Type C-c C-c when done
Saving file /home/larsi/src/emacs/trunk/lisp/ChangeLog...
Wrote /home/larsi/src/emacs/trunk/lisp/ChangeLog
Finding changes in /home/larsi/src/emacs/trunk/lisp/emacs-lisp/cl-indent.el...done
Auto-saving...done
Saving file /home/larsi/.url/cookies...
Wrote /home/larsi/.url/cookies
Making completion list...
Load-path shadows:
/home/larsi/pgnus/lisp/compface hides ~/pgnus/contrib/compface
~/lisp/zenirc-2.112/src/zenirc-example hides /home/larsi/lisp/zenirc-example
~/pgnus/contrib/vcard hides /home/larsi/lisp/vcard
/home/larsi/src/clock.el/clock hides /home/larsi/lisp/clock
/home/larsi/src/cddb.el/expect hides /home/larsi/lisp/expect
/home/larsi/src/pvr.el/pvr hides /home/larsi/lisp/pvr
/home/larsi/pgnus/lisp/md4 hides /home/larsi/src/emacs/trunk/lisp/md4
/home/larsi/pgnus/lisp/color hides /home/larsi/src/emacs/trunk/lisp/color
/home/larsi/pgnus/lisp/format-spec hides /home/larsi/src/emacs/trunk/lisp/format-spec
/home/larsi/pgnus/lisp/password-cache hides /home/larsi/src/emacs/trunk/lisp/password-cache
/home/larsi/pgnus/lisp/hex-util hides /home/larsi/src/emacs/trunk/lisp/hex-util
/home/larsi/pgnus/lisp/dns-mode hides /home/larsi/src/emacs/trunk/lisp/textmodes/dns-mode
/home/larsi/pgnus/lisp/tls hides /home/larsi/src/emacs/trunk/lisp/net/tls
/home/larsi/pgnus/lisp/ntlm hides /home/larsi/src/emacs/trunk/lisp/net/ntlm
/home/larsi/pgnus/lisp/hmac-def hides /home/larsi/src/emacs/trunk/lisp/net/hmac-def
/home/larsi/pgnus/lisp/sasl-ntlm hides /home/larsi/src/emacs/trunk/lisp/net/sasl-ntlm
/home/larsi/pgnus/lisp/hmac-md5 hides /home/larsi/src/emacs/trunk/lisp/net/hmac-md5
/home/larsi/pgnus/lisp/dns hides /home/larsi/src/emacs/trunk/lisp/net/dns
/home/larsi/pgnus/lisp/imap hides /home/larsi/src/emacs/trunk/lisp/net/imap
/home/larsi/pgnus/lisp/dig hides /home/larsi/src/emacs/trunk/lisp/net/dig
/home/larsi/pgnus/lisp/sasl hides /home/larsi/src/emacs/trunk/lisp/net/sasl
/home/larsi/pgnus/lisp/sasl-cram hides /home/larsi/src/emacs/trunk/lisp/net/sasl-cram
/home/larsi/pgnus/lisp/netrc hides /home/larsi/src/emacs/trunk/lisp/net/netrc
/home/larsi/pgnus/lisp/sasl-digest hides /home/larsi/src/emacs/trunk/lisp/net/sasl-digest
/home/larsi/pgnus/lisp/hashcash hides /home/larsi/src/emacs/trunk/lisp/mail/hashcash
/home/larsi/pgnus/lisp/binhex hides /home/larsi/src/emacs/trunk/lisp/mail/binhex
/home/larsi/pgnus/lisp/uudecode hides /home/larsi/src/emacs/trunk/lisp/mail/uudecode
/home/larsi/pgnus/lisp/spam-report hides /home/larsi/src/emacs/trunk/lisp/gnus/spam-report
/home/larsi/pgnus/lisp/gnus-sieve hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-sieve
/home/larsi/pgnus/lisp/rfc2045 hides /home/larsi/src/emacs/trunk/lisp/gnus/rfc2045
/home/larsi/pgnus/lisp/gnus-salt hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-salt
/home/larsi/pgnus/lisp/gnus-gravatar hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-gravatar
/home/larsi/pgnus/lisp/utf7 hides /home/larsi/src/emacs/trunk/lisp/gnus/utf7
/home/larsi/pgnus/lisp/auth-source hides /home/larsi/src/emacs/trunk/lisp/gnus/auth-source
/home/larsi/pgnus/lisp/registry hides /home/larsi/src/emacs/trunk/lisp/gnus/registry
/home/larsi/pgnus/lisp/nndraft hides /home/larsi/src/emacs/trunk/lisp/gnus/nndraft
/home/larsi/pgnus/lisp/mm-partial hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-partial
/home/larsi/pgnus/lisp/plstore hides /home/larsi/src/emacs/trunk/lisp/gnus/plstore
/home/larsi/pgnus/lisp/gnus-cite hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-cite
/home/larsi/pgnus/lisp/mm-url hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-url
/home/larsi/pgnus/lisp/nnmh hides /home/larsi/src/emacs/trunk/lisp/gnus/nnmh
/home/larsi/pgnus/lisp/nnbabyl hides /home/larsi/src/emacs/trunk/lisp/gnus/nnbabyl
/home/larsi/pgnus/lisp/mm-extern hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-extern
/home/larsi/pgnus/lisp/mm-encode hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-encode
/home/larsi/pgnus/lisp/gnus-sync hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-sync
/home/larsi/pgnus/lisp/gnus-cus hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-cus
/home/larsi/pgnus/lisp/rfc2231 hides /home/larsi/src/emacs/trunk/lisp/gnus/rfc2231
/home/larsi/pgnus/lisp/gnus-range hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-range
/home/larsi/pgnus/lisp/gnus-topic hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-topic
/home/larsi/pgnus/lisp/gnus-diary hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-diary
/home/larsi/pgnus/lisp/flow-fill hides /home/larsi/src/emacs/trunk/lisp/gnus/flow-fill
/home/larsi/pgnus/lisp/gnus-eform hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-eform
/home/larsi/pgnus/lisp/gmm-utils hides /home/larsi/src/emacs/trunk/lisp/gnus/gmm-utils
/home/larsi/pgnus/lisp/gnus-vm hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-vm
/home/larsi/pgnus/lisp/gnus-demon hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-demon
/home/larsi/pgnus/lisp/compface hides /home/larsi/src/emacs/trunk/lisp/gnus/compface
/home/larsi/pgnus/lisp/gnus-undo hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-undo
/home/larsi/pgnus/lisp/mail-parse hides /home/larsi/src/emacs/trunk/lisp/gnus/mail-parse
/home/larsi/pgnus/lisp/gssapi hides /home/larsi/src/emacs/trunk/lisp/gnus/gssapi
/home/larsi/pgnus/lisp/score-mode hides /home/larsi/src/emacs/trunk/lisp/gnus/score-mode
/home/larsi/pgnus/lisp/nnnil hides /home/larsi/src/emacs/trunk/lisp/gnus/nnnil
/home/larsi/pgnus/lisp/gnus-kill hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-kill
/home/larsi/pgnus/lisp/rfc2047 hides /home/larsi/src/emacs/trunk/lisp/gnus/rfc2047
/home/larsi/pgnus/lisp/gnus-start hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-start
/home/larsi/pgnus/lisp/mml-smime hides /home/larsi/src/emacs/trunk/lisp/gnus/mml-smime
/home/larsi/pgnus/lisp/nnmail hides /home/larsi/src/emacs/trunk/lisp/gnus/nnmail
/home/larsi/pgnus/lisp/mml hides /home/larsi/src/emacs/trunk/lisp/gnus/mml
/home/larsi/pgnus/lisp/gnus-html hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-html
/home/larsi/pgnus/lisp/sieve-manage hides /home/larsi/src/emacs/trunk/lisp/gnus/sieve-manage
/home/larsi/pgnus/lisp/nnmaildir hides /home/larsi/src/emacs/trunk/lisp/gnus/nnmaildir
/home/larsi/pgnus/lisp/nnoo hides /home/larsi/src/emacs/trunk/lisp/gnus/nnoo
/home/larsi/pgnus/lisp/mm-decode hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-decode
/home/larsi/pgnus/lisp/rfc1843 hides /home/larsi/src/emacs/trunk/lisp/gnus/rfc1843
/home/larsi/pgnus/lisp/yenc hides /home/larsi/src/emacs/trunk/lisp/gnus/yenc
/home/larsi/pgnus/lisp/nnir hides /home/larsi/src/emacs/trunk/lisp/gnus/nnir
/home/larsi/pgnus/lisp/mml1991 hides /home/larsi/src/emacs/trunk/lisp/gnus/mml1991
/home/larsi/pgnus/lisp/qp hides /home/larsi/src/emacs/trunk/lisp/gnus/qp
/home/larsi/pgnus/lisp/gnus-logic hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-logic
/home/larsi/pgnus/lisp/mm-uu hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-uu
/home/larsi/pgnus/lisp/nnvirtual hides /home/larsi/src/emacs/trunk/lisp/gnus/nnvirtual
/home/larsi/pgnus/lisp/mail-prsvr hides /home/larsi/src/emacs/trunk/lisp/gnus/mail-prsvr
/home/larsi/pgnus/lisp/mail-source hides /home/larsi/src/emacs/trunk/lisp/gnus/mail-source
/home/larsi/pgnus/lisp/gnus-group hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-group
/home/larsi/pgnus/lisp/mml-sec hides /home/larsi/src/emacs/trunk/lisp/gnus/mml-sec
/home/larsi/pgnus/lisp/mm-view hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-view
/home/larsi/pgnus/lisp/mm-bodies hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-bodies
/home/larsi/pgnus/lisp/gnus-registry hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-registry
/home/larsi/pgnus/lisp/nnml hides /home/larsi/src/emacs/trunk/lisp/gnus/nnml
/home/larsi/pgnus/lisp/sieve hides /home/larsi/src/emacs/trunk/lisp/gnus/sieve
/home/larsi/pgnus/lisp/gnus-dup hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-dup
/home/larsi/pgnus/lisp/shr-color hides /home/larsi/src/emacs/trunk/lisp/gnus/shr-color
/home/larsi/pgnus/lisp/gnus-mh hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-mh
/home/larsi/pgnus/lisp/gnus-async hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-async
/home/larsi/pgnus/lisp/nntp hides /home/larsi/src/emacs/trunk/lisp/gnus/nntp
/home/larsi/pgnus/lisp/pop3 hides /home/larsi/src/emacs/trunk/lisp/gnus/pop3
/home/larsi/pgnus/lisp/gnus-dired hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-dired
/home/larsi/pgnus/lisp/nnheader hides /home/larsi/src/emacs/trunk/lisp/gnus/nnheader
/home/larsi/pgnus/lisp/ecomplete hides /home/larsi/src/emacs/trunk/lisp/gnus/ecomplete
/home/larsi/pgnus/lisp/nnmairix hides /home/larsi/src/emacs/trunk/lisp/gnus/nnmairix
/home/larsi/pgnus/lisp/gnus-srvr hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-srvr
/home/larsi/pgnus/lisp/canlock hides /home/larsi/src/emacs/trunk/lisp/gnus/canlock
/home/larsi/pgnus/lisp/starttls hides /home/larsi/src/emacs/trunk/lisp/gnus/starttls
/home/larsi/pgnus/lisp/html2text hides /home/larsi/src/emacs/trunk/lisp/gnus/html2text
/home/larsi/pgnus/lisp/gnus-bcklg hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-bcklg
/home/larsi/pgnus/lisp/gnus-score hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-score
/home/larsi/pgnus/lisp/nnfolder hides /home/larsi/src/emacs/trunk/lisp/gnus/nnfolder
/home/larsi/pgnus/lisp/nnagent hides /home/larsi/src/emacs/trunk/lisp/gnus/nnagent
/home/larsi/pgnus/lisp/nneething hides /home/larsi/src/emacs/trunk/lisp/gnus/nneething
/home/larsi/pgnus/lisp/shr hides /home/larsi/src/emacs/trunk/lisp/gnus/shr
/home/larsi/pgnus/lisp/gnus-msg hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-msg
/home/larsi/pgnus/lisp/rfc2104 hides /home/larsi/src/emacs/trunk/lisp/gnus/rfc2104
/home/larsi/pgnus/lisp/gnus-ems hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-ems
/home/larsi/pgnus/lisp/gnus hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus
/home/larsi/pgnus/lisp/nnmbox hides /home/larsi/src/emacs/trunk/lisp/gnus/nnmbox
/home/larsi/pgnus/lisp/gnus-cache hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-cache
/home/larsi/pgnus/lisp/gnus-setup hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-setup
/home/larsi/pgnus/lisp/message hides /home/larsi/src/emacs/trunk/lisp/gnus/message
/home/larsi/pgnus/lisp/gnus-art hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-art
/home/larsi/pgnus/lisp/nnregistry hides /home/larsi/src/emacs/trunk/lisp/gnus/nnregistry
/home/larsi/pgnus/lisp/nnrss hides /home/larsi/src/emacs/trunk/lisp/gnus/nnrss
/home/larsi/pgnus/lisp/nnweb hides /home/larsi/src/emacs/trunk/lisp/gnus/nnweb
/home/larsi/pgnus/lisp/spam-stat hides /home/larsi/src/emacs/trunk/lisp/gnus/spam-stat
/home/larsi/pgnus/lisp/mml2015 hides /home/larsi/src/emacs/trunk/lisp/gnus/mml2015
/home/larsi/pgnus/lisp/spam hides /home/larsi/src/emacs/trunk/lisp/gnus/spam
/home/larsi/pgnus/lisp/gravatar hides /home/larsi/src/emacs/trunk/lisp/gnus/gravatar
/home/larsi/pgnus/lisp/gnus-fun hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-fun
/home/larsi/pgnus/lisp/smiley hides /home/larsi/src/emacs/trunk/lisp/gnus/smiley
/home/larsi/pgnus/lisp/sieve-mode hides /home/larsi/src/emacs/trunk/lisp/gnus/sieve-mode
/home/larsi/pgnus/lisp/gnus-picon hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-picon
/home/larsi/pgnus/lisp/gnus-bookmark hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-bookmark
/home/larsi/pgnus/lisp/ietf-drums hides /home/larsi/src/emacs/trunk/lisp/gnus/ietf-drums
/home/larsi/pgnus/lisp/gnus-agent hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-agent
/home/larsi/pgnus/lisp/gnus-util hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-util
/home/larsi/pgnus/lisp/gnus-int hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-int
/home/larsi/pgnus/lisp/gnus-sum hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-sum
/home/larsi/pgnus/lisp/nndiary hides /home/larsi/src/emacs/trunk/lisp/gnus/nndiary
/home/larsi/pgnus/lisp/legacy-gnus-agent hides /home/larsi/src/emacs/trunk/lisp/gnus/legacy-gnus-agent
/home/larsi/pgnus/lisp/gnus-delay hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-delay
/home/larsi/pgnus/lisp/nngateway hides /home/larsi/src/emacs/trunk/lisp/gnus/nngateway
/home/larsi/pgnus/lisp/nnimap hides /home/larsi/src/emacs/trunk/lisp/gnus/nnimap
/home/larsi/pgnus/lisp/messcompat hides /home/larsi/src/emacs/trunk/lisp/gnus/messcompat
/home/larsi/pgnus/lisp/nndoc hides /home/larsi/src/emacs/trunk/lisp/gnus/nndoc
/home/larsi/pgnus/lisp/smime hides /home/larsi/src/emacs/trunk/lisp/gnus/smime
/home/larsi/pgnus/lisp/deuglify hides /home/larsi/src/emacs/trunk/lisp/gnus/deuglify
/home/larsi/pgnus/lisp/gnus-win hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-win
/home/larsi/pgnus/lisp/gnus-spec hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-spec
/home/larsi/pgnus/lisp/gnus-ml hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-ml
/home/larsi/pgnus/lisp/gnus-uu hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-uu
/home/larsi/pgnus/lisp/gnus-draft hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-draft
/home/larsi/pgnus/lisp/nndir hides /home/larsi/src/emacs/trunk/lisp/gnus/nndir
/home/larsi/pgnus/lisp/.dir-locals hides /home/larsi/src/emacs/trunk/lisp/gnus/.dir-locals
/home/larsi/pgnus/lisp/mailcap hides /home/larsi/src/emacs/trunk/lisp/gnus/mailcap
/home/larsi/pgnus/lisp/mm-util hides /home/larsi/src/emacs/trunk/lisp/gnus/mm-util
/home/larsi/pgnus/lisp/nnspool hides /home/larsi/src/emacs/trunk/lisp/gnus/nnspool
/home/larsi/pgnus/lisp/spam-wash hides /home/larsi/src/emacs/trunk/lisp/gnus/spam-wash
/home/larsi/pgnus/lisp/gnus-mlspl hides /home/larsi/src/emacs/trunk/lisp/gnus/gnus-mlspl
/home/larsi/pgnus/lisp/rtree hides /home/larsi/src/emacs/trunk/lisp/gnus/rtree
/home/larsi/pgnus/lisp/time-date hides /home/larsi/src/emacs/trunk/lisp/calendar/time-date
/home/larsi/pgnus/lisp/parse-time hides /home/larsi/src/emacs/trunk/lisp/calendar/parse-time
/home/larsi/pgnus/lisp/pgg-gpg hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg-gpg
/home/larsi/pgnus/lisp/pgg-pgp5 hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg-pgp5
/home/larsi/pgnus/lisp/pgg-def hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg-def
/home/larsi/pgnus/lisp/pgg-parse hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg-parse
/home/larsi/pgnus/lisp/pgg-pgp hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg-pgp
/home/larsi/pgnus/lisp/pgg hides /home/larsi/src/emacs/trunk/lisp/obsolete/pgg
Features:
(shadow emacsbug log-edit ring whitespace log-view pcvs-util vc
ediff-merg ediff-diff ediff-wind ediff-help ediff-util ediff-mult
ediff-init ediff vc-dispatcher vc-bzr help-mode view newcomment
thai-util thai-word multi-isearch mailalias smtpmail sendmail gnus-bcklg
ecomplete gnus-draft diff-mode flow-fill pp timezone shr-color color
gnus-html url-queue url-cache shr browse-url copyright vc-cvs mule-util
sort smiley ansi-color gnus-cite gnus-async gnus-dup qp gnus-ml gmane
spam-gmane dns mm-url disp-table gnus-fun gnus-mdrtn gnus-topic nndoc
nnmbox nndraft nnfolder utf-7 nnimap parse-time utf7 gnutls netrc
network-stream starttls nnmh nnagent nnml spam-report spam spam-stat
gnus-uu yenc gnus-agent gnus-srvr gnus-score score-mode nnvirtual
gnus-msg gnus-art mm-uu mml2015 epg-config mm-view mml-smime smime dig
nntp gnus-cache nnir gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source gnus-start gnus-spec gnus-int gnus-range message format-spec
rfc822 mml easymenu mml-sec mailabbrev gmm-utils mailheader gnus-win
gnus-load gnus gnus-ems nnheader mail-utils wid-edit debug uniquify
advice help-fns advice-preload debbugs-gnu easy-mmode derived
tabulated-list debbugs soap-client mm-decode mm-bodies mm-encode
url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
url-gw url url-proxy url-privacy url-expand url-methods url-history
url-cookie url-util url-parse auth-source eieio byte-opt bytecomp
byte-compile cconv macroexp assoc gnus-util password-cache url-vars
mm-util mail-prsvr mailcap warnings xml ido flyspell ispell dired
regexp-opt add-log mail-extr jka-compr cl time-date tooltip ediff-hook
vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image
fringe lisp-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple
abbrev minibuffer loaddefs button faces cus-face files text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process dynamic-setting
system-font-setting font-render-setting move-toolbar gtk x-toolkit x
multi-tty emacs)
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10094: 24.0.91; M-C-q indents LOOP wrong
2011-11-21 16:05 bug#10094: 24.0.91; M-C-q indents LOOP wrong Lars Magne Ingebrigtsen
@ 2011-11-21 16:49 ` Helmut Eller
2011-11-21 18:24 ` Lars Magne Ingebrigtsen
2011-11-21 18:25 ` Lars Magne Ingebrigtsen
2011-11-21 22:00 ` Lars Magne Ingebrigtsen
1 sibling, 2 replies; 6+ messages in thread
From: Helmut Eller @ 2011-11-21 16:49 UTC (permalink / raw)
To: 10094
* Lars Magne Ingebrigtsen [2011-11-21 16:05] writes:
> If you use `common-lisp-indent-function', and you type in the following
> function (using TAB) to indent, you get the following:
>
> (defun foo ()
> (loop for z from 1 upto 5
> do (princ z)
> (terpri)))
>
> If you then `M-C-q' to fill the function, you end up with this:
>
> (defun foo ()
> (loop for z from 1 upto 5
> do (princ z)
> (terpri)))
>
> I've debugged this slightly, and the problem seems to be that
> `calculate-lisp-indent' is called to compute the indentation of the DO,
> but then isn't called to compute the indentation of the forms.
>
> I don't have time to debug this further right now, but unless anybody
> has an obvious solution to this, I'll try to fix this myself.
This is my fix for the problem:
(setq lisp-simple-loop-indentation 1)
(setq lisp-loop-keyword-indentation 6)
(setq lisp-loop-forms-indentation 6)
It's an old problem:
http://lists.gnu.org/archive/html/emacs-devel/2009-10/threads.html#00649
Helmut
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10094: 24.0.91; M-C-q indents LOOP wrong
2011-11-21 16:49 ` Helmut Eller
@ 2011-11-21 18:24 ` Lars Magne Ingebrigtsen
2011-11-21 18:25 ` Lars Magne Ingebrigtsen
1 sibling, 0 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2011-11-21 18:24 UTC (permalink / raw)
To: 10094
Helmut Eller <eller.helmut@gmail.com> writes:
> It's an old problem:
>
> http://lists.gnu.org/archive/html/emacs-devel/2009-10/threads.html#00649
That seems to be about not liking the default indentation levels. This
bug report is about `TAB' and `M-C-q' formatting the form
inconsistently.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10094: 24.0.91; M-C-q indents LOOP wrong
2011-11-21 16:49 ` Helmut Eller
2011-11-21 18:24 ` Lars Magne Ingebrigtsen
@ 2011-11-21 18:25 ` Lars Magne Ingebrigtsen
2011-11-21 18:52 ` Helmut Eller
1 sibling, 1 reply; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2011-11-21 18:25 UTC (permalink / raw)
To: Helmut Eller; +Cc: 10094
(Sorry; sent to the wrong address.)
Helmut Eller <eller.helmut@gmail.com> writes:
> It's an old problem:
>
> http://lists.gnu.org/archive/html/emacs-devel/2009-10/threads.html#00649
That seems to be about not liking the default indentation levels. This
bug report is about `TAB' and `M-C-q' formatting the form
inconsistently.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10094: 24.0.91; M-C-q indents LOOP wrong
2011-11-21 18:25 ` Lars Magne Ingebrigtsen
@ 2011-11-21 18:52 ` Helmut Eller
0 siblings, 0 replies; 6+ messages in thread
From: Helmut Eller @ 2011-11-21 18:52 UTC (permalink / raw)
To: 10094
* Lars Magne Ingebrigtsen [2011-11-21 18:25] writes:
> (Sorry; sent to the wrong address.)
>
> Helmut Eller <eller.helmut@gmail.com> writes:
>
>> It's an old problem:
>>
>> http://lists.gnu.org/archive/html/emacs-devel/2009-10/threads.html#00649
>
> That seems to be about not liking the default indentation levels. This
> bug report is about `TAB' and `M-C-q' formatting the form
> inconsistently.
Ah, I misunderstood. Still, it seems that my indentation setting not
only look more stylish but also (accidentally) hide the bug.
Helmut
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10094: 24.0.91; M-C-q indents LOOP wrong
2011-11-21 16:05 bug#10094: 24.0.91; M-C-q indents LOOP wrong Lars Magne Ingebrigtsen
2011-11-21 16:49 ` Helmut Eller
@ 2011-11-21 22:00 ` Lars Magne Ingebrigtsen
1 sibling, 0 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2011-11-21 22:00 UTC (permalink / raw)
To: 10094
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> I don't have time to debug this further right now, but unless anybody
> has an obvious solution to this, I'll try to fix this myself.
The fix was rather trivial -- I just had to tell the machinery to
recompute the indentation in LOOP forms, even though no new sexps are
introduced.
I've committed the fix.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2011-11-21 22:00 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-11-21 16:05 bug#10094: 24.0.91; M-C-q indents LOOP wrong Lars Magne Ingebrigtsen
2011-11-21 16:49 ` Helmut Eller
2011-11-21 18:24 ` Lars Magne Ingebrigtsen
2011-11-21 18:25 ` Lars Magne Ingebrigtsen
2011-11-21 18:52 ` Helmut Eller
2011-11-21 22:00 ` Lars Magne Ingebrigtsen
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).