(invisible-p): Remove: implemented in C now.

(line-move-invisible-p): Remove obsolete alias.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8b33341a0e128a41444a00587d67be8b82ed240..06ceba6a157678069fc65a86ea948d30b24ad2e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (invisible-p): Remove: implemented in C now.
+       (line-move-invisible-p): Remove obsolete alias.
+
 2007-08-28  Juri Linkov  <juri@jurta.org>
 
        * image-mode.el (image-type): New variable.
@@ -23,12 +28,10 @@
        (tramp-do-copy-or-rename-file): New parameter PRESERVE-UID-GID.
        Improve fast track.
        (tramp-do-copy-or-rename-file-directly): Sync parameter list with
-       the other tramp-do-copy-or-rename-file-* functions.  Major
-       rewrite.
+       the other tramp-do-copy-or-rename-file-* functions.  Major rewrite.
        (tramp-handle-file-local-copy, tramp-handle-insert-file-contents)
        (tramp-handle-write-region): Improve fast track.
-       (tramp-handle-file-remote-p): IDENTIFICATION can also be
-       'localname.
+       (tramp-handle-file-remote-p): IDENTIFICATION can also be `localname'.
        (tramp-maybe-open-connection): Let `process-adaptive-read-buffering'
        be nil.
 

diff --git a/lisp/simple.el b/lisp/simple.el
index 3caade5da857d74567f72c97ddd9098f05d82f1d..5989d9cc61fe033a1700500a8e04523ffa667930 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3639,16 +3639,6 @@ Outline mode sets this."
   :type 'boolean
   :group 'editing-basics)
 
-(defun invisible-p (pos)
-  "Return non-nil if the character after POS is currently invisible."
-  (let ((prop
-        (get-char-property pos 'invisible)))
-    (if (eq buffer-invisibility-spec t)
-       prop
-      (or (memq prop buffer-invisibility-spec)
-         (assq prop buffer-invisibility-spec)))))
-(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)
   (if (< arg 0)