From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: David Combs <dkcombs@panix.com>
Cc: help-gnu-emacs@gnu.org
Subject: Re: Emacs Lisp Programming Questions
Date: Wed, 04 Nov 2009 10:24:39 +0100 [thread overview]
Message-ID: <4AF14857.5040209@easy-emacs.de> (raw)
In-Reply-To: <hcjbjp$t1v$1@reader1.panix.com>
David Combs wrote:
> In article <mailman.8228.1254921577.2239.help-gnu-emacs@gnu.org>,
> Kevin Rodgers <kevin.d.rodgers@gmail.com> wrote:
>> clint.laskowski wrote:
>>> Hello, gnu.emacs.help. I have a few questions about programming in
>>> Emacs Lisp. I hope you can help. Here they are:
>>>
>>> 1. Is this a good place to ask questions about programming in Emacs
>>> Lisp, especially with regards to text processing? If there's a better
>>> place, I'd appreciate knowing.
>>>
>>> 2. I want to write an interactive Elisp program to remove sequential
>>> duplicate lines from a buffer. This buffer is not sorted, and it
>>> should not be sorted. The program should simply look for two
>>> sequential lines that are identical, delete one, and then move on to
>>> the next line and do it over until it reaches the end of the buffer.
>>>
...
In use here
(defun just-one-empty-line (&optional beg end)
"Delete consecutive empty lines, retain just one. "
(interactive "*")
(let ((beg (cond (beg beg)
((region-active-p)
(region-beginning))
(t (point-min))))
(end (cond (end (copy-marker end))
((region-active-p)
(copy-marker (region-end)))
(t (copy-marker (point-max))))))
(save-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char beg)
(while (not (eobp))
(while (looking-at "^\\([ \t]*\n\\)[ \t]*$")
(delete-region (match-beginning 1) (match-end 1)))
(forward-line 1)))
(widen))))
Andreas
--
https://code.launchpad.net/s-x-emacs-werkstatt/
http://bazaar.launchpad.net/~a-roehler/python-mode/python-mode.el/
next prev parent reply other threads:[~2009-11-04 9:24 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-10-06 22:40 Emacs Lisp Programming Questions clint.laskowski
2009-10-07 0:14 ` Pascal J. Bourguignon
2009-10-07 7:53 ` mdj
2009-10-07 8:40 ` David Kastrup
2009-10-07 16:42 ` tomas
2009-10-07 8:55 ` djc
2009-10-07 13:19 ` Kevin Rodgers
2009-10-07 20:54 ` Xah Lee
2009-10-08 13:36 ` clint.laskowski
2009-10-08 14:35 ` Andreas Politz
[not found] ` <mailman.8228.1254921577.2239.help-gnu-emacs@gnu.org>
2009-11-01 6:59 ` David Combs
2009-11-02 16:29 ` David Kastrup
2009-11-04 6:43 ` Kevin Rodgers
2009-11-04 9:24 ` Andreas Röhler [this message]
2009-11-04 9:26 ` Andreas Röhler
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4AF14857.5040209@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=dkcombs@panix.com \
--cc=help-gnu-emacs@gnu.org \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.