From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Merciadri Luca Newsgroups: gmane.emacs.help Subject: Re: Adding `#' at each new line with text until the end of the file Date: Wed, 19 May 2010 18:08:28 +0200 Organization: ULg Message-ID: <87sk5neuwz.fsf@merciadriluca-station.MERCIADRILUCA> References: <87k4r24iq3.fsf@merciadriluca-station.MERCIADRILUCA> <87bpcel6zj.fsf@kuiper.lan.informatimago.com> <878w7is2yy.fsf@merciadriluca-station.MERCIADRILUCA> <87zkzyjkcb.fsf@kuiper.lan.informatimago.com> <87aarx4j3i.fsf@merciadriluca-station.MERCIADRILUCA> <87mxvx2m2w.fsf@merciadriluca-station.MERCIADRILUCA> <87pr0tlzuz.fsf@kuiper.lan.informatimago.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1291833172 18558 80.91.229.12 (8 Dec 2010 18:32:52 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 8 Dec 2010 18:32:52 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Dec 08 19:32:48 2010 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PQOoq-0005XY-Ef for geh-help-gnu-emacs@m.gmane.org; Wed, 08 Dec 2010 19:32:48 +0100 Original-Received: from localhost ([127.0.0.1]:38934 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PQOop-0003zw-Q2 for geh-help-gnu-emacs@m.gmane.org; Wed, 08 Dec 2010 13:32:47 -0500 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!feed118.news.tele.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) Cancel-Lock: sha1:vPXPVRhw3R2zkJaVpcpDQjZ4Kbc= Original-Lines: 94 Original-NNTP-Posting-Host: 62.197.101.67 Original-X-Trace: news.sunsite.dk DXC=[gT8We1AT]EI[NbmUoDmmGYSB=nbEKnkKfPSZB06Fl0_g4HJ[3aBPbUi4BDG8hD Original-X-Complaints-To: staff@sunsite.dk Original-Xref: usenet.stanford.edu gnu.emacs.help:178277 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:75796 Archived-At: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 pjb@informatimago.com (Pascal J. Bourguignon) writes: > Merciadri Luca writes: > >> pjb@informatimago.com (Pascal J. Bourguignon) writes: >> >>>> Sure, but, as I explained in my previous message, it does not even >>>> modify the Sayings file. Why? >>> >>> Because you didn't instruct the program to modify the file. >>> Read the documentation of insert, for example. Does it mention files? >>> What does insert modify? >> Insert modifies the current buffer, according to the manual. Or >> find-file loads its arg into a buffer. So, if find-file loads its arg >> into the *current* buffer, insert should modify the current buffer, >> that is, `Sayings'. > > (list > (progn (find-file "/tmp/Sayings") > (buffer-name (current-buffer))) > (progn (find-file "/mnt/Sayings") > (buffer-name (current-buffer)))) > --> ("Sayings" "Sayings<2>") > > Here you have two files, named "/tmp/Sayings" and "/mnt/Sayings", and > when opening them at the same time, we get "Sayings" and "Sayings<2>" > as buffer names. > > Clearly, the buffer names are not entirely independant from the file > names, but it should be obvious from the example, that there's two > name spaces and two different kind of entities. A buffer named "X" is > not a file name "X". > > So to repeat what you wrote above: > > - find-file (or find-file-noselect) loads the contents of a _file_ > into a _buffer_. > > - insert modifies the contents of a _buffer_. > > When you do only these to action what happens to the _file_? Nothing, actually. That's the problem. >>> Here is a macro that could be useful: > > Here with find-file-noselect as it has been advised (not tested): > > (require 'cl) > (defmacro* with-file (file-and-options &body body) > "Processes BODY with a buffer on the given file. > DO: find-file or find-file-literally, process body, and > optionally save the buffer and kill it. > save is not done if body exits exceptionnaly. > kill is always done as specified. > FILE-AND-OPTION: either an atom evaluated to a path, > or (path &key (save t) (kill t) (literal nil)) > " > (if (atom file-and-options) > `(with-file (,file-and-options) ,@body) > ;; destructuring-bind is broken, we cannot give anything else than nil > ;; as default values: > (destructuring-bind (path &key (save nil savep) (kill nil killp) > (literal nil literalp)) > file-and-options > (unless savep (setf save t)) > (unless killp (setf kill t)) > `(unwind-protect > (progn > (find-file-noselect ,path t ,literal) > (prog1 (save-excursion ,@body) > ,(when save `(save-buffer 1)))) > ,(when kill > `(kill-buffer (current-buffer))))))) > >> Thanks. I'll keep it. Thanks. - -- Merciadri Luca See http://www.student.montefiore.ulg.ac.be/~merciadri/ - -- Nobody leaves us, we only leave others. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.9 (GNU/Linux) Comment: Processed by Mailcrypt 3.5.8 iEYEARECAAYFAkv0DPwACgkQM0LLzLt8Mhyt3gCgpC8sYQPznCu0gI19a9TszeXK +bQAn2rfXklxI3EmG6Pjs6LBAAVnmmTU =2zNs -----END PGP SIGNATURE-----