From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Re: bug in forward-visible-line: Patch Date: Thu, 22 May 2003 19:03:32 -0500 (CDT) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200305230003.h4N03WF10972@eel.dms.auburn.edu> References: <200305220443.h4M4h4w10124@eel.dms.auburn.edu> <200305221256.h4MCuhjv003998@rum.cs.yale.edu> <200305222338.h4MNccJ10942@eel.dms.auburn.edu> NNTP-Posting-Host: main.gmane.org X-Trace: main.gmane.org 1053648495 19414 80.91.224.249 (23 May 2003 00:08:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 23 May 2003 00:08:15 +0000 (UTC) Cc: monnier+gnu/emacs@rum.cs.yale.edu Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri May 23 02:08:13 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19J06X-00052z-00 for ; Fri, 23 May 2003 02:08:13 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19J0I2-0002lY-00 for ; Fri, 23 May 2003 02:20:06 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.20) id 19J032-0002Cg-Hv for emacs-devel@quimby.gnus.org; Thu, 22 May 2003 20:04:36 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19J02W-0002Au-9x for emacs-devel@gnu.org; Thu, 22 May 2003 20:04:04 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19J01z-0001wY-6O for emacs-devel@gnu.org; Thu, 22 May 2003 20:04:02 -0400 Original-Received: from manatee.dms.auburn.edu ([131.204.53.104]) by monty-python.gnu.org with esmtp (Exim 4.20) id 19J01y-0001wN-R3 for emacs-devel@gnu.org; Thu, 22 May 2003 20:03:30 -0400 Original-Received: from eel.dms.auburn.edu (eel.dms.auburn.edu [131.204.53.108]) h4N03Toc012943; Thu, 22 May 2003 19:03:29 -0500 (CDT) Original-Received: (from teirllm@localhost) by eel.dms.auburn.edu (8.11.6+Sun/8.11.6) id h4N03WF10972; Thu, 22 May 2003 19:03:32 -0500 (CDT) X-Authentication-Warning: eel.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: teirllm@dms.auburn.edu In-reply-to: <200305222338.h4MNccJ10942@eel.dms.auburn.edu> (message from Luc Teirlinck on Thu, 22 May 2003 18:38:38 -0500 (CDT)) Original-cc: emacs-devel@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:14109 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:14109 This would be a corrected version of line-move-invisible: (defun line-move-invisible (pos) "Return non-nil if the character after POS is currently invisible." (let ((prop (get-char-property pos 'invisible))) (cond ((null prop) nil) ((eq buffer-invisibility-spec t)) ((memq prop buffer-invisibility-spec)) ((assq prop buffer-invisibility-spec)) ((listp prop) (catch 'found (dolist (var prop) (if (or (memq var buffer-invisibility-spec) (assq var buffer-invisibility-spec)) (throw 'found t))))) (t nil)))) I could double-check this carefully (I did not) and send a diff, but as Stefan pointed out, it might be better to implement this function in C. Sincerely, Luc.