From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas =?iso-8859-1?q?R=F6hler?= Newsgroups: gmane.emacs.devel Subject: mark-defun bug Date: Tue, 1 Apr 2008 14:42:15 +0200 Message-ID: <200804011442.15821.andreas.roehler@online.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_n2i8HVxljP1V543" X-Trace: ger.gmane.org 1207053724 6498 80.91.229.12 (1 Apr 2008 12:42:04 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 1 Apr 2008 12:42:04 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Apr 01 14:42:33 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Jgfop-0005Sv-Ar for ged-emacs-devel@m.gmane.org; Tue, 01 Apr 2008 14:42:27 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JgfoD-0000Hi-As for ged-emacs-devel@m.gmane.org; Tue, 01 Apr 2008 08:41:49 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JgfnS-0008Gq-My for emacs-devel@gnu.org; Tue, 01 Apr 2008 08:41:02 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JgfnR-0008Fi-2Z for emacs-devel@gnu.org; Tue, 01 Apr 2008 08:41:02 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JgfnQ-0008Fe-Vo for emacs-devel@gnu.org; Tue, 01 Apr 2008 08:41:01 -0400 Original-Received: from moutng.kundenserver.de ([212.227.126.171]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JgfnQ-0006td-IN for emacs-devel@gnu.org; Tue, 01 Apr 2008 08:41:00 -0400 Original-Received: from noname (p54BE890C.dip0.t-ipconnect.de [84.190.137.12]) by mrelayeu.kundenserver.de (node=mrelayeu3) with ESMTP (Nemesis) id 0MKxQS-1JgfnB3k55-0002MK; Tue, 01 Apr 2008 14:40:48 +0200 User-Agent: KMail/1.9.5 X-Provags-ID: V01U2FsdGVkX19/mRZNAXYDBpq+o/ol2z//WKtzKstOvKOv4mf +ZbPnL1sjh72T0w4v0WiS7f2eE7RHJeFIROAcKJpAWiMGJm6sz 6iMT4IRz2iNFs9t9RLfnQ== X-detected-kernel: by monty-python.gnu.org: Linux 2.6? (barebone, rare!) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:94110 Archived-At: --Boundary-00=_n2i8HVxljP1V543 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Hi all, `mark-defun' misses the last char, if a definition is followed by a buffer-end. As this bug seems caused by a line not needed, IMO it's fine to drop it. Patch attached. Thanks Andreas R=F6hler --Boundary-00=_n2i8HVxljP1V543 Content-Type: text/x-diff; charset="us-ascii"; name="emacs-mark-defun.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="emacs-mark-defun.diff" diff -u -b /old/lisp.el /new/lisp.el --- /old/lisp.el 2008-03-22 01:10:59.000000000 +0100 +++ /new/lisp.el 2008-04-01 14:15:18.000000000 +0200 @@ -400,8 +400,7 @@ (goto-char opoint) (end-of-defun) (push-mark (point) nil t) - (beginning-of-defun)) - (re-search-backward "^\n" (- (point) 1) t))))) + (beginning-of-defun)))))) (defun narrow-to-defun (&optional arg) "Make text outside current defun invisible. Diff finished. Tue Apr 1 14:15:45 2008 --Boundary-00=_n2i8HVxljP1V543--