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: is insert(backspace and overwrite character) possible? Date: Sun, 09 May 2010 14:20:42 +0200 Organization: ULg Message-ID: <87fx21cllx.fsf@merciadriluca-station.MERCIADRILUCA> References: <87r5lm6u4g.fsf@merciadriluca-station.MERCIADRILUCA> <87bpcp36ke.fsf@merciadriluca-station.MERCIADRILUCA> <87wrvdpec3.fsf@fh-trier.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1273408861 6362 80.91.229.12 (9 May 2010 12:41:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 9 May 2010 12:41:01 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun May 09 14:40:57 2010 connect(): No such file or directory 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 1OB5oW-00062u-OX for geh-help-gnu-emacs@m.gmane.org; Sun, 09 May 2010 14:40:57 +0200 Original-Received: from localhost ([127.0.0.1]:49955 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OB5oV-0003sz-UO for geh-help-gnu-emacs@m.gmane.org; Sun, 09 May 2010 08:40:55 -0400 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:4hVp46Cju50VpQwQwQLusbYEZEg= Original-Lines: 98 Original-NNTP-Posting-Host: 62.197.101.67 Original-X-Trace: news.sunsite.dk DXC=0G<=5Q5V_=R@?1\co7LeeXYSB=nbEKnk[MBng8mk3]LXB`G2cTG; MnQLGVLjEY^2YX[=LHD=0P^YT9g\V1BeNHOY5Z@8`56Df9P=H9Ph5n3\`P@; iBlnSSZ7_ Original-X-Complaints-To: staff@sunsite.dk Original-Xref: usenet.stanford.edu gnu.emacs.help:178082 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:73610 Archived-At: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Andreas Politz writes: > Merciadri Luca writes: > >> Barry Margolin writes: >> >>> You can't do it just with insert, and I don't know how you would do it >>> in C, either. You need to write a conditional, like >>> >>> (if (looking-at "- ") >>> (delete-char 2)) >>> >>> before doing the insert. >> >> Thanks. I do not remember for the C, but I am pretty sure that I had >> already used it (in the past). > > You are probably thinking of carriage return. > > printf("foo\rbar\n"); > > will print 'bar'. > > Anyway, we can create a overwriting `insert' variant. > > (defun insert-overwrite (&rest args) > (let ((pos (point))) > (apply 'insert args) > (delete-region (point) (min (point-at-eol) > (+ (point) > (- (point) pos)))))) > > But my guess is, that you actually want something like this. > > (defun replace-line (&rest args) > (delete-region (point-at-bol) (point-at-eol)) > (apply 'insert args)) Thanks. Actually, it could do the trick. As you might see in my signature, the delimiters are not standard: I am having `- --' at the place of `--'. This should be due to many facts in my .gnus: * I have set == (setq gnus-signature-separator '("^--$")) == * I have defined a command which adds a quirk like this: == (defun psig () "Insert the signature for a personal posting on a newsgroup, including a saying." (interactive) (goto-char (point-max)) (or (= (char-after (- (point) 1)) ?\n) (newline 1)) (insert "-- \n") (let ((saying "")) (save-window-excursion (find-file "~/Sayings") (goto-char (point-min)) (search-forward "#") (delete-char -1) (setq fill-prefix nil) (mark-paragraph) (setq saying (buffer-substring (region-beginning) (region-end))) (exchange-point-and-mark) (if (eobp) (goto-char (1+ (point-min)))) ;(insert "#") (save-buffer)) (insert saying) )) == * I am using Mailcrypt (but I do not want to change). Do you have any idea of what could be causing this problematic signature? Thanks. - -- Merciadri Luca See http://www.student.montefiore.ulg.ac.be/~merciadri/ - -- Big thunder. Little rain. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.9 (GNU/Linux) Comment: Processed by Mailcrypt 3.5.8 iEYEARECAAYFAkvmqJkACgkQM0LLzLt8MhzdyQCgjKmBE69mo0pjaHrJtCZPrVCM hPUAn0j2fivhx+PeACaw8WYOjLCyuLH+ =6wkS -----END PGP SIGNATURE-----