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

Fix namespace problem in ede/custom.el

Browse source 
* lisp/cedet/ede/custom.el (ede-eieio-old-variables): Rename from
'ede-eieio-old-variables'.  Retain old name as an obsolete alias.
This commit is contained in:
Stefan Kangas 2022-08-05 12:08:19 +02:00
parent 5426f67006
commit 250f09d2f3
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/cedet/ede/custom.el
View file

@ -35,7 +35,9 @@
(require 'ede)
(eval-when-compile (require 'eieio-custom))
(defvar eieio-ede-old-variables nil
(define-obsolete-variable-alias 'ede-eieio-old-variables
'eieio-ede-old-variables "29.1")
(defvar ede-eieio-old-variables nil
"The old variables for a project.")
;;; Customization Commands
@ -50,7 +52,7 @@
(let* ((ov (oref (ede-current-project) local-variables))
(cp (ede-current-project)))
(ede-customize cp)
(setq-local eieio-ede-old-variables ov)))
(setq-local ede-eieio-old-variables ov)))
;;;###autoload
(defalias 'customize-project #'ede-customize-project)
@ -178,9 +180,9 @@ OBJ is the target object to customize."
;; These hooks are used when finishing up a customization.
(cl-defmethod eieio-done-customizing ((proj ede-project))
"Call this when a user finishes customizing PROJ."
(let ((ov eieio-ede-old-variables)
(let ((ov ede-eieio-old-variables)
(nv (oref proj local-variables)))
(setq eieio-ede-old-variables nil)
(setq ede-eieio-old-variables nil)
(while ov
(if (not (assoc (car (car ov)) nv))
(save-excursion