procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "Make the generalized buffer-local-variable obsolete"

Browse source 
This reverts commit bfe222288e.

This led to the local modes not working.
This commit is contained in:
Lars Ingebrigtsen 2022-08-22 00:14:07 +02:00
parent 29a989c020
commit ae5fe348fb
5 changed files with 17 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/emacs-lisp/bytecomp.el
View file

@ -1355,7 +1355,6 @@ FORMAT and ARGS are as in `byte-compile-warn'."
(let ((byte-compile-form-stack (cons arg byte-compile-form-stack)))
(apply #'byte-compile-warn format args)))
;;;###autoload
(defun byte-compile-warn-obsolete (symbol type)
"Warn that SYMBOL (a variable, function or generalized variable) is obsolete.
TYPE is a string that say which one of these three types it is."

25
lisp/emacs-lisp/gv.el
View file

@ -141,18 +141,6 @@ all the parts of PLACE that can be evaluated and then runs E.
(declare (indent 2) (debug (sexp form def-body)))
`(gv-get ,place (lambda ,vars ,@body)))
(defun make-obsolete-generalized-variable (obsolete-name current-name when)
"Make byte-compiler warn that generalized variable OBSOLETE-NAME is obsolete.
The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message.
WHEN should be a string indicating when the variable was first
made obsolete, for example a date or a release number."
(put obsolete-name 'byte-obsolete-generalized-variable
(purecopy (list current-name when)))
obsolete-name)
;; Different ways to declare a generalized variable.
;;;###autoload
(defmacro gv-define-expander (name handler)
@ -407,7 +395,6 @@ The return value is the last VAL in the list.
(gv-define-setter buffer-local-value (val var buf)
(macroexp-let2 nil v val
`(with-current-buffer ,buf (set (make-local-variable ,var) ,v))))
(make-obsolete-generalized-variable 'buffer-local-value nil "29.1")
(gv-define-expander alist-get
(lambda (do key alist &optional default remove testfn)
@ -632,6 +619,18 @@ REF must have been previously obtained with `gv-ref'."
;;; Generalized variables.
(defun make-obsolete-generalized-variable (obsolete-name current-name when)
"Make byte-compiler warn that generalized variable OBSOLETE-NAME is obsolete.
The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message.
WHEN should be a string indicating when the variable was first
made obsolete, for example a date or a release number."
(put obsolete-name 'byte-obsolete-generalized-variable
(purecopy (list current-name when)))
obsolete-name)
;; Some Emacs-related place types.
(gv-define-simple-setter buffer-file-name set-visited-file-name t)
(make-obsolete-generalized-variable