Mercurial > emacs
changeset 29354:4ed4a700358b
Update calls to make-obsolete with a WHEN argument.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 01 Jun 2000 05:06:46 +0000 |
| parents | 42c2692d3933 |
| children | d4b5dd203f46 |
| files | lisp/faces.el lisp/frame.el lisp/international/mule-cmds.el lisp/international/mule-util.el lisp/international/mule.el lisp/subr.el |
| diffstat | 6 files changed, 22 insertions(+), 22 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/faces.el Thu Jun 01 05:06:46 2000 +0000 @@ -156,7 +156,7 @@ This function is defined for compatibility with Emacs 20.2. It should not be used anymore." (facep name)) -(make-obsolete 'internal-find-face 'facep) +(make-obsolete 'internal-find-face 'facep "21.1") (defun internal-get-face (name &optional frame) @@ -170,7 +170,7 @@ should not be used anymore." (or (internal-find-face name frame) (check-face name))) -(make-obsolete 'internal-get-face "See `facep' and `check-face'.") +(make-obsolete 'internal-get-face "See `facep' and `check-face'." "21.1") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -1471,14 +1471,14 @@ (defun frame-update-faces (frame) nil) -(make-obsolete 'frame-update-faces "No longer necessary") +(make-obsolete 'frame-update-faces "No longer necessary" "21.1") ;; Update the colors of FACE, after FRAME's own colors have been ;; changed. (defun frame-update-face-colors (frame) (frame-set-background-mode frame)) -(make-obsolete 'frame-update-face-colors 'frame-set-background-mode) +(make-obsolete 'frame-update-face-colors 'frame-set-background-mode "21.1") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -1771,7 +1771,7 @@ ((string-match x-font-regexp-weight font) (concat (substring font 0 (match-beginning 1)) which (substring font (match-end 1))))))) -(make-obsolete 'x-frob-font-weight 'make-face-...) +(make-obsolete 'x-frob-font-weight 'make-face-... "21.1") (defun x-frob-font-slant (font which) (let ((case-fold-search t)) @@ -1792,50 +1792,50 @@ ((string-match x-font-regexp-slant font) (concat (substring font 0 (match-beginning 1)) which (substring font (match-end 1))))))) -(make-obsolete 'x-frob-font-slant 'make-face-...) +(make-obsolete 'x-frob-font-slant 'make-face-... "21.1") (defun x-make-font-bold (font) "Given an X font specification, make a bold version of it. If that can't be done, return nil." (x-frob-font-weight font "bold")) -(make-obsolete 'x-make-font-bold 'make-face-bold) +(make-obsolete 'x-make-font-bold 'make-face-bold "21.1") (defun x-make-font-demibold (font) "Given an X font specification, make a demibold version of it. If that can't be done, return nil." (x-frob-font-weight font "demibold")) -(make-obsolete 'x-make-font-demibold 'make-face-bold) +(make-obsolete 'x-make-font-demibold 'make-face-bold "21.1") (defun x-make-font-unbold (font) "Given an X font specification, make a non-bold version of it. If that can't be done, return nil." (x-frob-font-weight font "medium")) -(make-obsolete 'x-make-font-unbold 'make-face-unbold) +(make-obsolete 'x-make-font-unbold 'make-face-unbold "21.1") (defun x-make-font-italic (font) "Given an X font specification, make an italic version of it. If that can't be done, return nil." (x-frob-font-slant font "i")) -(make-obsolete 'x-make-font-italic 'make-face-italic) +(make-obsolete 'x-make-font-italic 'make-face-italic "21.1") (defun x-make-font-oblique (font) ; you say tomayto... "Given an X font specification, make an oblique version of it. If that can't be done, return nil." (x-frob-font-slant font "o")) -(make-obsolete 'x-make-font-oblique 'make-face-italic) +(make-obsolete 'x-make-font-oblique 'make-face-italic "21.1") (defun x-make-font-unitalic (font) "Given an X font specification, make a non-italic version of it. If that can't be done, return nil." (x-frob-font-slant font "r")) -(make-obsolete 'x-make-font-unitalic 'make-face-unitalic) +(make-obsolete 'x-make-font-unitalic 'make-face-unitalic "21.1") (defun x-make-font-bold-italic (font) "Given an X font specification, make a bold and italic version of it. If that can't be done, return nil." (and (setq font (x-make-font-bold font)) (x-make-font-italic font))) -(make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic) +(make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1") (provide 'faces)
--- a/lisp/frame.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/frame.el Thu Jun 01 05:06:46 2000 +0000 @@ -977,10 +977,10 @@ (mapcar 'delete-frame (delq frame (frame-list)))) -(make-obsolete 'screen-height 'frame-height) -(make-obsolete 'screen-width 'frame-width) -(make-obsolete 'set-screen-width 'set-frame-width) -(make-obsolete 'set-screen-height 'set-frame-height) +(make-obsolete 'screen-height 'frame-height) ;before 19.15 +(make-obsolete 'screen-width 'frame-width) ;before 19.15 +(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15 +(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15 ;;; Highlighting trailing whitespace.
--- a/lisp/international/mule-cmds.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/international/mule-cmds.el Thu Jun 01 05:06:46 2000 +0000 @@ -280,7 +280,7 @@ (setq default-process-coding-system (cons coding-system coding-system))) (defalias 'update-iso-coding-systems 'update-coding-systems-internal) -(make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal) +(make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal "20.3") (defun prefer-coding-system (coding-system) "Add CODING-SYSTEM at the front of the priority list for automatic detection.
--- a/lisp/international/mule-util.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/international/mule-util.el Thu Jun 01 05:06:46 2000 +0000 @@ -133,7 +133,7 @@ ;;; For backward compatibility ... ;;;###autoload (defalias 'truncate-string 'truncate-string-to-width) -(make-obsolete 'truncate-string 'truncate-string-to-width) +(make-obsolete 'truncate-string 'truncate-string-to-width "20.1") ;;; Nested alist handler. Nested alist is alist whose elements are ;;; also nested alist.
--- a/lisp/international/mule.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/international/mule.el Thu Jun 01 05:06:46 2000 +0000 @@ -439,7 +439,7 @@ (car (coding-system-get coding-system 'alias-coding-systems))) (defalias 'coding-system-parent 'coding-system-base) -(make-obsolete 'coding-system-parent 'coding-system-base) +(make-obsolete 'coding-system-parent 'coding-system-base "20.3") ;; Coding system also has a property `eol-type'. ;;
--- a/lisp/subr.el Thu Jun 01 05:04:28 2000 +0000 +++ b/lisp/subr.el Thu Jun 01 05:06:46 2000 +0000 @@ -615,8 +615,8 @@ (defalias 'define-function 'defalias) (defalias 'sref 'aref) -(make-obsolete 'sref 'aref) -(make-obsolete 'char-bytes "Now this function always returns 1") +(make-obsolete 'sref 'aref "20.4") +(make-obsolete 'char-bytes "Now this function always returns 1" "20.4") ;; Some programs still use this as a function. (defun baud-rate ()