From: bojohan+news@dd.chalmers.se (Johan Bockgård)
Subject: Re: Insert character pairs
Date: Tue, 04 May 2004 17:57:21 +0200 [thread overview]
Message-ID: <yoijd65kw5ge.fsf@frealaf.dd.chalmers.se> (raw)
In-Reply-To: 871xm2ol7j.fsf@mail.jurta.org
Juri Linkov <juri@jurta.org> writes:
> And while on this topic, another suggestion is to add a prefix
> argument to the command C-M-q (`indent-sexp') which currently has no
> prefix argument. This can be similar to M-q (`fill-paragraph') whose
> prefix argument adds a special meaning to justify paragraphs. C-M-q
> without prefix will work exactly as it currently works, but with a
> prefix will pretty-print the list after point. This is relevant only
> for emacs-lisp-mode and buffers in lisp-interaction-mode like the
> *scratch* buffer.
[...]
> +(defun indent-or-pp-sexp (&optional arg)
> + "Indent each line of the list or, with argument, pretty-printify the list."
> + (interactive "P")
> + (if arg
> + (let* (p (str (pp-to-string (save-excursion
> + (prog1 (read (current-buffer))
^
But this would also lead to all comments being removed , right?
> + (setq p (point)))))))
> + (delete-region (point) p)
> + (save-excursion (insert str)))
> + (indent-sexp)))
--
Johan Bockgård
next prev parent reply other threads:[~2004-05-04 15:57 UTC|newest]
Thread overview: 29+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-04-29 8:48 Insert character pairs Juri Linkov
2004-04-29 10:12 ` Andreas Schwab
2004-04-29 11:00 ` Juri Linkov
2004-04-29 11:21 ` Andreas Schwab
2004-04-29 11:59 ` Juri Linkov
2004-04-29 14:24 ` Stefan Monnier
2004-04-29 15:02 ` Juri Linkov
2004-04-29 16:57 ` Stefan Monnier
2004-04-30 0:48 ` Juri Linkov
2004-04-30 13:43 ` Stefan Monnier
2004-04-30 23:22 ` Juri Linkov
2004-05-01 8:19 ` Juri Linkov
2004-05-02 16:19 ` Juri Linkov
2004-05-03 14:03 ` Richard Stallman
2004-05-04 15:57 ` Johan Bockgård [this message]
2004-05-04 16:48 ` Juri Linkov
2004-05-05 20:20 ` Richard Stallman
2004-05-06 13:14 ` Juri Linkov
2004-05-06 17:19 ` Stefan Monnier
2004-05-08 21:43 ` Juri Linkov
2004-05-03 19:48 ` Kevin Rodgers
2004-05-04 5:51 ` Juri Linkov
2004-05-04 18:30 ` Kevin Rodgers
2004-05-04 19:32 ` Juri Linkov
2004-05-05 20:20 ` Richard Stallman
2004-05-06 12:02 ` Juri Linkov
2004-05-01 20:26 ` Stefan Monnier
2004-05-02 16:03 ` Juri Linkov
2004-05-02 16:41 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=yoijd65kw5ge.fsf@frealaf.dd.chalmers.se \
--to=bojohan+news@dd.chalmers.se \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).