andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(invisible-p): Rename from text-invisible-p. Update callers.

Browse source
This commit is contained in:
Stefan Monnier 2007-08-25 20:20:26 +00:00
parent c382ec4021
commit c65e694244
3 changed files with 20 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
etc/NEWS
View file

@ -81,7 +81,7 @@ in to make it use the scrollbars from the system theme.
* Lisp Changes in Emacs 22.2.
** The function text-invisible-p returns non-nil if the character
** The function invisible-p returns non-nil if the character
after a specified position is invisible.
+++

7
lisp/ChangeLog
View file

@ -1,9 +1,14 @@
2007-08-25 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (invisible-p): Rename from text-invisible-p.
Update callers.
2007-08-25 Alan Mackenzie <acm@muc.de>
* progmodes/cc-langs.el (c-other-decl-block-key-in-symbols-alist):
new language variable.
* progmodes/cc-engine.el (c-brace-anchor-point): new function.
* progmodes/cc-engine.el (c-brace-anchor-point): New function.
(c-add-stmt-syntax): Give accurate anchor points for "namespace",
"extern" etc., rather than BOI. Fix addition of spurious
syntactic-symbol 'defun-block-intro, replacing it with

26
lisp/simple.el
View file

@ -3477,7 +3477,7 @@ Outline mode sets this."
:type 'boolean
:group 'editing-basics)
(defun text-invisible-p (pos)
(defun invisible-p (pos)
"Return non-nil if the character after POS is currently invisible."
(let ((prop
(get-char-property pos 'invisible)))
@ -3485,7 +3485,7 @@ Outline mode sets this."
prop
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(define-obsolete-function-alias 'line-move-invisible-p 'text-invisible-p)
(define-obsolete-function-alias 'line-move-invisible-p 'invisible-p)
;; Returns non-nil if partial move was done.
(defun line-move-partial (arg noerror to-end)
@ -3606,7 +3606,7 @@ Outline mode sets this."
(while (and (> arg 0) (not done))
;; If the following character is currently invisible,
;; skip all characters with that same `invisible' property value.
(while (and (not (eobp)) (text-invisible-p (point)))
(while (and (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point))))
;; Move a line.
;; We don't use `end-of-line', since we want to escape
@ -3624,7 +3624,7 @@ Outline mode sets this."
(setq done t)))
((and (> arg 1) ;; Use vertical-motion for last move
(not (integerp selective-display))
(not (text-invisible-p (point))))
(not (invisible-p (point))))
;; We avoid vertical-motion when possible
;; because that has to fontify.
(forward-line 1))
@ -3653,7 +3653,7 @@ Outline mode sets this."
(setq done t)))
((and (< arg -1) ;; Use vertical-motion for last move
(not (integerp selective-display))
(not (text-invisible-p (1- (point)))))
(not (invisible-p (1- (point)))))
(forward-line -1))
((zerop (vertical-motion -1))
(if (not noerror)
@ -3665,7 +3665,7 @@ Outline mode sets this."
;; if our target is the middle of this line.
(or (zerop (or goal-column temporary-goal-column))
(< arg 0))
(not (bobp)) (text-invisible-p (1- (point))))
(not (bobp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point))))))))
;; This is the value the function returns.
(= arg 0))
@ -3697,7 +3697,7 @@ Outline mode sets this."
(save-excursion
;; Like end-of-line but ignores fields.
(skip-chars-forward "^\n")
(while (and (not (eobp)) (text-invisible-p (point)))
(while (and (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point)))
(skip-chars-forward "^\n"))
(point))))
@ -3780,13 +3780,13 @@ and `current-column' to be able to ignore invisible text."
(move-to-column col))
(when (and line-move-ignore-invisible
(not (bolp)) (text-invisible-p (1- (point))))
(not (bolp)) (invisible-p (1- (point))))
(let ((normal-location (point))
(normal-column (current-column)))
;; If the following character is currently invisible,
;; skip all characters with that same `invisible' property value.
(while (and (not (eobp))
(text-invisible-p (point)))
(invisible-p (point)))
(goto-char (next-char-property-change (point))))
;; Have we advanced to a larger column position?
(if (> (current-column) normal-column)
@ -3799,7 +3799,7 @@ and `current-column' to be able to ignore invisible text."
;; but with a more reasonable buffer position.
(goto-char normal-location)
(let ((line-beg (save-excursion (beginning-of-line) (point))))
(while (and (not (bolp)) (text-invisible-p (1- (point))))
(while (and (not (bolp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point) line-beg))))))))
(defun move-end-of-line (arg)
@ -3820,7 +3820,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
(and (line-move arg t)
(not (bobp))
(progn
(while (and (not (bobp)) (text-invisible-p (1- (point))))
(while (and (not (bobp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point))))
(backward-char 1)))
(point)))))
@ -3856,13 +3856,13 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
;; Move to beginning-of-line, ignoring fields and invisibles.
(skip-chars-backward "^\n")
(while (and (not (bobp)) (text-invisible-p (1- (point))))
(while (and (not (bobp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point)))
(skip-chars-backward "^\n"))
(setq start (point))
;; Now find first visible char in the line
(while (and (not (eobp)) (text-invisible-p (point)))
(while (and (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point))))
(setq first-vis (point))