setting NEWVAR and marks OLDVAR as obsolete.
If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR.
-Note: Use this before any other references (defvar/defcustom) to NEWVAR"
+Note: Use this before any other references (defvar/defcustom) to NEWVAR."
(let ((needs-setting (and (boundp oldvar) (not (boundp newvar))))
(value (and (boundp oldvar) (symbol-value oldvar))))
(defvaralias oldvar newvar)
(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)
"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)
;; 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
(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
+
+(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)
"Return a vector of characters in STRING."
(mapvector #'identity string))
-(defun store-substring (string idx obj)
- "Embed OBJ (string or character) at index IDX of STRING."
- (let* ((str (cond ((stringp obj) obj)
- ((characterp obj) (char-to-string obj))
+(defun store-substring (string idx object)
+ "Embed OBJECT (string or character) at index IDX of STRING."
+ (let* ((str (cond ((stringp object) object)
+ ((characterp object) (char-to-string object))
(t (error
"Invalid argument (should be string or character): %s"
- obj))))
+ object))))
(string-len (length string))
(len (length str))
(i 0))
(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