From ccd6049d9aead0906b602ea8aa90d9daa60fb439 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Sat, 1 Mar 1997 03:48:34 +0000 Subject: [PATCH] Fixed about definition of visible/invisible functions for XEmacs. --- mime-edit.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index d0ee4a5..0bf47b3 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.52 $ +;; Version: $Revision: 0.53 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -121,7 +121,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.52 1997-03-01 03:39:01 tmorioka Exp $") + "$Id: mime-edit.el,v 0.53 1997-03-01 03:48:34 tmorioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -690,18 +690,18 @@ Tspecials means any character that matches with it in header must be quoted.") ) (get-text-property pos 'invisible) ) + (defun next-visible-point (pos) + (save-excursion + (if (save-excursion + (goto-char pos) + (eq (following-char) ?\n) + ) + (setq pos (1+ pos)) + ) + (or (next-single-property-change pos 'invisible) + (point-max)) + )) ) - (defun next-visible-point (pos) - (save-excursion - (if (save-excursion - (goto-char pos) - (eq (following-char) ?\n) - ) - (setq pos (1+ pos)) - ) - (or (next-single-property-change pos 'invisible) - (point-max)) - )) (t (defun invisible-region (start end) (if (save-excursion -- 1.7.10.4