From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: how to get around deprecated function Date: Tue, 05 May 2015 19:31:12 +0200 Organization: Aioe.org NNTP Server Message-ID: <874mnr53tr.fsf@debian.uxu> References: <87twvzx252.fsf@debian.uxu> <87y4l9p04r.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1430847019 30091 80.91.229.3 (5 May 2015 17:30:19 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 5 May 2015 17:30:19 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue May 05 19:30:19 2015 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Ypgfh-0007xq-UX for geh-help-gnu-emacs@m.gmane.org; Tue, 05 May 2015 19:30:18 +0200 Original-Received: from localhost ([::1]:40970 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ypgfh-0000yz-Eh for geh-help-gnu-emacs@m.gmane.org; Tue, 05 May 2015 13:30:17 -0400 Original-Path: usenet.stanford.edu!news.kjsl.com!feeder.erje.net!1.eu.feeder.erje.net!news.ecp.fr!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 48 Original-NNTP-Posting-Host: feB02bRejf23rfBm51Mt7Q.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:H2bz3qC/5vzT4zE1N1CfBoxaDBA= Mail-Copies-To: never Original-Xref: usenet.stanford.edu gnu.emacs.help:211936 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:104220 Archived-At: B. T. Raven writes: > The following related function might also benefit > from some "subtractional betterment" in case you > care to comment. This just appends the line where > cursor (or maybe more accurately 'point') happens to > be to the *scratch* buffer. I know I can make beg, > end local to function by using let instead of setq > but I always re-initialize beg and end: > > (defun append-line-to-starscratch ();; M-x asl > (interactive) > (move-beginning-of-line nil) > (set-mark-command nil) (setq beg (point)) > (move-end-of-line nil) (setq end (point)) > (kill-ring-save beg end) > (with-current-buffer "*scratch*" > (end-of-buffer) (insert "\n") > (yank))) There are many ways to do that. The only thing I would change (as in correcting an error) in the above code is to use `save-excursion' because you move point but the operation has nothing to do with moving it - you only do it to get the endpoints. I would do it like this: (defun append-line-to-buffer (buffer) ; make the function generic (or more so) (when (get-buffer buffer) ; check if input makes sense (always do that) (save-excursion ; use this when point is moved (almost always do that) (beginning-of-line) ; `move-beginning-of-line' is Lisp, this faster (?) C (let ((start (point))) ; get start (end-of-line) ; and end (let ((line-str (buffer-substring-no-properties start (point)))) ; get string (with-current-buffer buffer (end-of-buffer) (insert line-str "\n")) ))))) (defun append-line-to-scratch () ; then do (specific) help function (interactive) (append-line-to-buffer "*scratch*") ) -- underground experts united http://user.it.uu.se/~embe8573