unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
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

  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).