projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(UU+7684): Modify a component of `ideographic-structuer'.
[chise/xemacs-chise.git-]
/
lisp
/
obsolete.el
diff --git
a/lisp/obsolete.el
b/lisp/obsolete.el
index
3f83e0a
..
2cb8043
100644
(file)
--- a/
lisp/obsolete.el
+++ b/
lisp/obsolete.el
@@
-106,6
+106,8
@@
setting NEWVAR and marks OLDVAR as provided for compatibility only."
(make-obsolete 'set-window-dot 'set-window-point)
(define-obsolete-function-alias 'extent-buffer 'extent-object)
(make-obsolete 'set-window-dot 'set-window-point)
(define-obsolete-function-alias 'extent-buffer 'extent-object)
+(define-compatible-variable-alias 'parse-sexp-lookup-properties
+ 'lookup-syntax-properties)
;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames
(defun frame-first-window (frame)
;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames
(defun frame-first-window (frame)
@@
-175,6
+177,8
@@
set Info-directory-list.")
"This used to be the name of the user whose init file was read at startup.")
(make-obsolete-variable 'init-file-user 'load-user-init-file-p)
"This used to be the name of the user whose init file was read at startup.")
(make-obsolete-variable 'init-file-user 'load-user-init-file-p)
+(define-obsolete-function-alias 'pui-add-install-directory
+ 'pui-set-local-package-get-directory) ; misleading name
;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks
(make-compatible-variable 'lisp-indent-hook 'lisp-indent-function)
;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks
(make-compatible-variable 'lisp-indent-hook 'lisp-indent-function)
@@
-225,6
+229,9
@@
set Info-directory-list.")
;; Can't make this obsolete. easymenu depends on it.
(make-compatible 'add-menu 'add-submenu)
;; Can't make this obsolete. easymenu depends on it.
(make-compatible 'add-menu 'add-submenu)
+(define-obsolete-function-alias 'package-get-download-menu
+ 'package-ui-download-menu)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer
(define-compatible-function-alias 'read-minibuffer
;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer
(define-compatible-function-alias 'read-minibuffer
@@
-262,6
+269,9
@@
set Info-directory-list.")
(define-compatible-function-alias 'assq-delete-all
'remassq) ;GNU 21.1
(define-compatible-function-alias 'assq-delete-all
'remassq) ;GNU 21.1
+(define-compatible-function-alias 'line-beginning-position 'point-at-bol)
+(define-compatible-function-alias 'line-end-position 'point-at-eol)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline
(define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)
;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline
(define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)
@@
-391,5
+401,8
@@
the resulting string may be narrower than END-COLUMN."
(make-obsolete 'function-called-at-point 'function-at-point)
(make-obsolete 'function-called-at-point 'function-at-point)
+(when (featurep 'utf-2000)
+ (make-obsolete-variable 'utf-2000-version 'xemacs-chise-version))
+
(provide 'obsolete)
;;; obsolete.el ends here
(provide 'obsolete)
;;; obsolete.el ends here