X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fobsolete.el;h=4970f11aeb6fe157c8fcaffb696e9b3609d57b20;hb=e66203751a888ea088ca5276f7ecfa78e3b4a323;hp=8e8571f4a16b3c174697dd54a50c72a38b3ed92a;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/obsolete.el b/lisp/obsolete.el
index 8e8571f..4970f11 100644
--- 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)
+(define-compatible-variable-alias 'parse-sexp-lookup-properties
+  'lookup-syntax-properties)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames
 (defun frame-first-window (frame)
@@ -257,6 +259,11 @@ set Info-directory-list.")
 
 (make-obsolete-variable 'executing-macro 'executing-kbd-macro)
 
+(define-compatible-function-alias 'interactive-form 
+  'function-interactive) ;GNU 21.1
+(define-compatible-function-alias 'assq-delete-all
+  'remassq) ;GNU 21.1
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline
 
 (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)