diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 54 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 2 |
5 files changed, 33 insertions, 33 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 925d275386f..9b66c8ffd60 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -420,8 +420,8 @@ In interpreted code, this is entirely equivalent to `progn'." ;; nil) (make-obsolete-variable 'macro-declaration-function - 'macro-declarations-alist "24.2") + 'macro-declarations-alist "24.3") (make-obsolete 'macro-declaration-function - 'macro-declarations-alist "24.2") + 'macro-declarations-alist "24.3") ;;; byte-run.el ends here diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index aa12c709b1a..86497a3c73f 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -99,8 +99,8 @@ ;;;###autoload (define-obsolete-variable-alias ;; This alias is needed for compatibility with .elc files that use defstruct - ;; and were compiled with Emacs<24.2. - 'custom-print-functions 'cl-custom-print-functions "24.2") + ;; and were compiled with Emacs<24.3. + 'custom-print-functions 'cl-custom-print-functions "24.3") ;;;###autoload (defvar cl-custom-print-functions nil diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index c9ed9efe0c5..ae0852d6c87 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -452,7 +452,7 @@ definitions, or lack thereof). \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" (declare (indent 1) (debug cl-flet) - (obsolete "Use either `cl-flet' or `cl-letf'." "24.2")) + (obsolete "Use either `cl-flet' or `cl-letf'." "24.3")) `(letf ,(mapcar (lambda (x) (if (or (and (fboundp (car x)) @@ -480,7 +480,7 @@ will not work - use `labels' instead" (symbol-name (car x)))) "Make temporary function bindings. Like `cl-labels' except that the lexical scoping is handled via `lexical-let' rather than relying on `lexical-binding'." - (declare (indent 1) (debug cl-flet) (obsolete cl-labels "24.2")) + (declare (indent 1) (debug cl-flet) (obsolete cl-labels "24.3")) (let ((vars nil) (sets nil) (newenv macroexpand-all-environment)) (dolist (binding bindings) ;; It's important that (not (eq (symbol-name var1) (symbol-name var2))) @@ -521,7 +521,7 @@ Like `cl-letf', but with some extra backward compatibility." (defun cl--gv-adapt (cl-gv do) ;; This function is used by all .elc files that use define-setf-expander and - ;; were compiled with Emacs>=24.2. + ;; were compiled with Emacs>=24.3. (let ((vars (nth 0 cl-gv)) (vals (nth 1 cl-gv)) (binds ()) @@ -632,7 +632,7 @@ Example: ;; `(,witness ,getter ,(funcall setter witness))))) ;; ...find "let prefix" of expansion, extract getter and setter from ;; ...the rest, and build the 5-tuple)) -(make-obsolete 'get-setf-method 'gv-letplace "24.2") +(make-obsolete 'get-setf-method 'gv-letplace "24.3") (defmacro define-modify-macro (name arglist func &optional doc) "Define a `setf'-like modify macro. @@ -653,52 +653,52 @@ from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)" ;;; Additional compatibility code. ;; For names that were clean but really aren't needed any more. -(define-obsolete-function-alias 'cl-macroexpand 'macroexpand "24.2") +(define-obsolete-function-alias 'cl-macroexpand 'macroexpand "24.3") (define-obsolete-variable-alias 'cl-macro-environment - 'macroexpand-all-environment "24.2") -(define-obsolete-function-alias 'cl-macroexpand-all 'macroexpand-all "24.2") + 'macroexpand-all-environment "24.3") +(define-obsolete-function-alias 'cl-macroexpand-all 'macroexpand-all "24.3") ;;; Hash tables. ;; This is just kept for compatibility with code byte-compiled by Emacs-20. ;; No idea if this might still be needed. (defun cl-not-hash-table (x &optional y &rest _z) - (declare (obsolete nil "24.2")) + (declare (obsolete nil "24.3")) (signal 'wrong-type-argument (list 'cl-hash-table-p (or y x)))) (defvar cl-builtin-gethash (symbol-function 'gethash)) -(make-obsolete-variable 'cl-builtin-gethash nil "24.2") +(make-obsolete-variable 'cl-builtin-gethash nil "24.3") (defvar cl-builtin-remhash (symbol-function 'remhash)) -(make-obsolete-variable 'cl-builtin-remhash nil "24.2") +(make-obsolete-variable 'cl-builtin-remhash nil "24.3") (defvar cl-builtin-clrhash (symbol-function 'clrhash)) -(make-obsolete-variable 'cl-builtin-clrhash nil "24.2") +(make-obsolete-variable 'cl-builtin-clrhash nil "24.3") (defvar cl-builtin-maphash (symbol-function 'maphash)) -(make-obsolete-variable 'cl-builtin-maphash nil "24.2") -(define-obsolete-function-alias 'cl-map-keymap 'map-keymap "24.2") -(define-obsolete-function-alias 'cl-copy-tree 'copy-tree "24.2") -(define-obsolete-function-alias 'cl-gethash 'gethash "24.2") -(define-obsolete-function-alias 'cl-puthash 'puthash "24.2") -(define-obsolete-function-alias 'cl-remhash 'remhash "24.2") -(define-obsolete-function-alias 'cl-clrhash 'clrhash "24.2") -(define-obsolete-function-alias 'cl-maphash 'maphash "24.2") -(define-obsolete-function-alias 'cl-make-hash-table 'make-hash-table "24.2") -(define-obsolete-function-alias 'cl-hash-table-p 'hash-table-p "24.2") -(define-obsolete-function-alias 'cl-hash-table-count 'hash-table-count "24.2") +(make-obsolete-variable 'cl-builtin-maphash nil "24.3") +(define-obsolete-function-alias 'cl-map-keymap 'map-keymap "24.3") +(define-obsolete-function-alias 'cl-copy-tree 'copy-tree "24.3") +(define-obsolete-function-alias 'cl-gethash 'gethash "24.3") +(define-obsolete-function-alias 'cl-puthash 'puthash "24.3") +(define-obsolete-function-alias 'cl-remhash 'remhash "24.3") +(define-obsolete-function-alias 'cl-clrhash 'clrhash "24.3") +(define-obsolete-function-alias 'cl-maphash 'maphash "24.3") +(define-obsolete-function-alias 'cl-make-hash-table 'make-hash-table "24.3") +(define-obsolete-function-alias 'cl-hash-table-p 'hash-table-p "24.3") +(define-obsolete-function-alias 'cl-hash-table-count 'hash-table-count "24.3") (define-obsolete-function-alias 'cl-map-keymap-recursively - 'cl--map-keymap-recursively "24.2") -(define-obsolete-function-alias 'cl-map-intervals 'cl--map-intervals "24.2") -(define-obsolete-function-alias 'cl-map-extents 'cl--map-overlays "24.2") + 'cl--map-keymap-recursively "24.3") +(define-obsolete-function-alias 'cl-map-intervals 'cl--map-intervals "24.3") +(define-obsolete-function-alias 'cl-map-extents 'cl--map-overlays "24.3") (defun cl-maclisp-member (item list) - (declare (obsolete member "24.2")) + (declare (obsolete member "24.3")) (while (and list (not (equal item (car list)))) (setq list (cdr list))) list) ;; Used in the expansion of the old `defstruct'. (defun cl-struct-setf-expander (x name accessor pred-form pos) - (declare (obsolete nil "24.2")) + (declare (obsolete nil "24.3")) (let* ((temp (make-symbol "--cl-x--")) (store (make-symbol "--cl-store--"))) (list (list temp) (list x) (list store) `(progn diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 910d9403753..7fcd339d6d2 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -3742,7 +3742,7 @@ By default, loading the `edebug' library causes these bindings to be installed in `emacs-lisp-mode-map'.") (define-obsolete-variable-alias 'gud-inhibit-global-bindings - 'edebug-inhibit-emacs-lisp-mode-bindings "24.2") + 'edebug-inhibit-emacs-lisp-mode-bindings "24.3") ;; Global GUD bindings for all emacs-lisp-mode buffers. (unless edebug-inhibit-emacs-lisp-mode-bindings diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 5f4be78b082..9304f0e3918 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -2554,7 +2554,7 @@ This is usually a symbol that starts with `:'." (defsetf eieio-oref eieio-oset) (if (eval-when-compile (fboundp 'gv-define-expander)) - ;; Not needed for Emacs>=24.2 since gv.el's setf expands macros and + ;; Not needed for Emacs>=24.3 since gv.el's setf expands macros and ;; follows aliases. nil (defsetf slot-value eieio-oset) |