Remove DIR!, FILE! and def-advice! obsolete aliases

This commit is contained in:
Henrik Lissner 2019-07-25 19:43:58 +02:00
parent 2122a31962
commit a146e61728
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -185,7 +185,6 @@ at the values with which this function was called."
(call-interactively command)))) (call-interactively command))))
(defalias 'lambda!! 'λ!!) (defalias 'lambda!! 'λ!!)
(define-obsolete-function-alias 'FILE! 'file!) ; DEPRECATED
(defun file! () (defun file! ()
"Return the emacs lisp file this macro is called from." "Return the emacs lisp file this macro is called from."
(cond ((bound-and-true-p byte-compile-current-file)) (cond ((bound-and-true-p byte-compile-current-file))
@ -194,7 +193,6 @@ at the values with which this function was called."
(car current-load-list)) (car current-load-list))
(buffer-file-name))) (buffer-file-name)))
(define-obsolete-function-alias 'DIR! 'dir!) ; DEPRECATED
(defun dir! () (defun dir! ()
"Returns the directory of the emacs lisp file this macro is called from." "Returns the directory of the emacs lisp file this macro is called from."
(when-let (path (file!)) (when-let (path (file!))
@ -455,7 +453,6 @@ writes to `standard-output'."
;; ;;
;;; Definers ;;; Definers
(define-obsolete-function-alias 'def-advice! 'defadvice!)
(defmacro defadvice! (symbol arglist &optional docstring &rest body) (defmacro defadvice! (symbol arglist &optional docstring &rest body)
"Define an advice called NAME and add it to PLACES. "Define an advice called NAME and add it to PLACES.