[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 3a98d1b4e8 08/47: (kview:char-visible-p): Del
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 3a98d1b4e8 08/47: (kview:char-visible-p): Delete function |
Date: |
Sun, 25 Jun 2023 15:58:35 -0400 (EDT) |
branch: externals/hyperbole
commit 3a98d1b4e8978a2d3c02c17117aae5c98de27485
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Mats Lidell <mats.lidell@lidells.se>
(kview:char-visible-p): Delete function
* kotl/kview.el (kview:first-invisible-point): Use `kview:char-invisible-p`.
(kview:char-visible-p): Delete function.
---
kotl/kview.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/kotl/kview.el b/kotl/kview.el
index 3e0de9ed65..6a6338284d 100644
--- a/kotl/kview.el
+++ b/kotl/kview.el
@@ -638,14 +638,12 @@ level."
;;;###autoload
(defun kview:char-invisible-p (&optional pos)
"Return t if the character after point is invisible/hidden, else nil."
+ ;; FIXME: Why not (invisible-p (or pos (point))) ?
(when (get-char-property (or pos (point)) 'invisible)
+ ;; FIXME: To be invisible, a non-nil property value is not
+ ;; sufficient: it also depends on `buffer-invisibility-spec'.
t))
-;;;###autoload
-(defun kview:char-visible-p (&optional pos)
- "Return t if the character after point is visible, else nil."
- (not (get-char-property (or pos (point)) 'invisible)))
-
(defun kview:create (buffer-name
&optional id-counter top-cell-attributes
label-type level-indent label-separator
@@ -709,6 +707,8 @@ are used.
(defun kview:end-of-actual-line ()
"Go to the end of the current line whether collapsed or not."
+ ;; FIXME: This "[\n\r]" is a leftover from when kotl was using
+ ;; `selective-display'. We should use `end-of-line' nowadays.
(when (re-search-forward "[\n\r]" nil 'move)
(backward-char 1)))
@@ -745,7 +745,7 @@ Value may be the character immediately after point."
(unless pos
(setq pos (point)))
(let ((end (kcell-view:end-contents pos)))
- (while (and pos (< pos end) (kview:char-visible-p pos))
+ (while (and pos (< pos end) (not (kview:char-invisible-p pos)))
(if (kproperty:get pos 'invisible)
(setq pos (kproperty:next-single-change pos 'invisible nil end))
(let ((overlay (car (delq nil (mapcar (lambda (o) (when (overlay-get o
'invisible) o))
- [elpa] externals/hyperbole updated (063f382f78 -> 32f0d10126), ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 760aa837e6 20/47: Remove FIXME, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole c16b992472 10/47: * hyperbole.el: Preload `kotl-autoloads`, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole f02d6effe0 11/47: hyperbole-autoloads.el: Remove needless definitions, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 4f2794d730 18/47: * hversion.el: Add FIXMEs., ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 3a98d1b4e8 08/47: (kview:char-visible-p): Delete function,
ELPA Syncer <=
- [elpa] externals/hyperbole 11411b78f3 28/47: Insert missing Changelog item, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 9752451675 25/47: Keep lisp-indent-function, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 9f4f3c82d7 29/47: Remove FIXME comments, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 3d67247f58 30/47: Remove odd code duplication, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 0872ab55c0 36/47: Merge branch 'stefan-scratch-hyperbole-20230621-without-questions-no-fixme' into rsw_stefan-scratch-hyperbole-20230621-without-questions-no-fixme, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole cbb15c43fe 38/47: Merge pull request #347 from rswgnu/stefan-scratch-hyperbole-20230621-without-questions-no-fixme, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole ac036b5f29 41/47: Merge branch 'master' into insert_missing_changelog_entry, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 5bbc6da4e0 42/47: Fix annot-bib ibtype and actype; was not checking for [] delimiters, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole feb6fb1a75 43/47: Merge pull request #350 from rswgnu/rsw, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 66c9368c93 46/47: Merge branch 'master' into verify-expected-url-was-called, ELPA Syncer, 2023/06/25