Commit 67df0767 authored by Glenn Morris's avatar Glenn Morris
parent 03c00f71
......@@ -528,7 +528,7 @@ It also processes local variables specified in the file text.
@deffn Command normal-mode &optional find-file
This function establishes the proper major mode and buffer-local
variable bindings for the current buffer. It calls
@code{set-auto-mode} (see below). As from Emacs 25.2, it no longer
@code{set-auto-mode} (see below). As of Emacs 26.1, it no longer
runs @code{hack-local-variables}, this now being done in
@code{run-mode-hooks} at the initialization of major modes
(@pxref{Mode Hooks}).
......
......@@ -1242,7 +1242,7 @@ Also refresh various data structures that hinge on the regexp."
"[^" allout-primary-bullet "]"))
"\\)"
))))
(define-obsolete-function-alias 'set-allout-regexp 'allout-set-regexp "25.2")
(define-obsolete-function-alias 'set-allout-regexp 'allout-set-regexp "26.1")
;;;_ : Menu bar
(defvar allout-mode-exposure-menu)
(defvar allout-mode-editing-menu)
......
......@@ -191,7 +191,7 @@ TIME should be either a time value or a date-time string."
(time-subtract nil time))
;;;###autoload
(define-obsolete-function-alias 'subtract-time 'time-subtract "25.2")
(define-obsolete-function-alias 'subtract-time 'time-subtract "26.1")
;;;###autoload
(defun date-to-day (date)
......
......@@ -532,9 +532,9 @@ non-nil, the amount returned will be relative to past time worked."
(message "%s" string)
string)))
(define-obsolete-function-alias 'timeclock-time-to-seconds 'float-time "25.2")
(define-obsolete-function-alias 'timeclock-time-to-seconds 'float-time "26.1")
(define-obsolete-function-alias 'timeclock-seconds-to-time 'seconds-to-time
"25.2")
"26.1")
;; Should today-only be removed in favor of timeclock-relative? - gm
(defsubst timeclock-when-to-leave (&optional today-only)
......
......@@ -315,7 +315,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
(const :tag "Always" t)
(repeat (symbol :tag "Parameter")))
"25.1")
(tooltip-reuse-hidden-frame tooltip boolean "25.2")
(tooltip-reuse-hidden-frame tooltip boolean "26.1")
;; fringe.c
(overflow-newline-into-fringe fringe boolean)
;; image.c
......
......@@ -679,7 +679,7 @@ This class is not stored in the `parent' slot of a class vector."
(setq eieio-default-superclass (cl--find-class 'eieio-default-superclass))
(define-obsolete-function-alias 'standard-class
'eieio-default-superclass "25.2")
'eieio-default-superclass "26.1")
(cl-defgeneric make-instance (class &rest initargs)
"Make a new instance of CLASS based on INITARGS.
......@@ -815,7 +815,7 @@ first and modify the returned object.")
(cl-defgeneric destructor (_this &rest _params)
"Destructor for cleaning up any dynamic links to our object."
(declare (obsolete nil "25.2"))
(declare (obsolete nil "26.1"))
;; No cleanup... yet.
nil)
......@@ -938,7 +938,7 @@ this object."
This may create or delete slots, but does not affect the return value
of `eq'."
(error "EIEIO: `change-class' is unimplemented"))
(define-obsolete-function-alias 'change-class 'eieio-change-class "25.2")
(define-obsolete-function-alias 'change-class 'eieio-change-class "26.1")
;; Hook ourselves into help system for describing classes and methods.
;; FIXME: This is not actually needed any more since we can click on the
......
......@@ -257,7 +257,7 @@ If mode is nil, use `major-mode' of the current buffer."
(match-string 1 mode))))))
(define-obsolete-function-alias 'gmm-format-time-string 'format-time-string
"25.2")
"26.1")
(provide 'gmm-utils)
......
......@@ -81,7 +81,7 @@ If LITERAL is non-nil, insert NEWTEXT literally. Return a new
string containing the replacements.
This is a compatibility function for different Emacsen."
(declare (obsolete replace-regexp-in-string "25.2"))
(declare (obsolete replace-regexp-in-string "26.1"))
(replace-regexp-in-string regexp newtext string nil literal))
(defun gnus-boundp (variable)
......
......@@ -1353,7 +1353,7 @@ If nil, you might be asked to input the charset."
:type 'symbol)
(make-obsolete-variable
'message-default-charset
"The default charset comes from the language environment" "25.2")
"The default charset comes from the language environment" "26.1")
(defcustom message-dont-reply-to-names mail-dont-reply-to-names
"Addresses to prune when doing wide replies.
......
......@@ -757,7 +757,7 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'."
(write-region start end filename append visit lockname)))
(defalias 'mm-make-temp-file 'make-temp-file)
(define-obsolete-function-alias 'mm-make-temp-file 'make-temp-file "25.2")
(define-obsolete-function-alias 'mm-make-temp-file 'make-temp-file "26.1")
(defvar mm-image-load-path-cache nil)
......
......@@ -204,7 +204,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
;;;###autoload
(defalias 'open-protocol-stream 'open-network-stream)
(define-obsolete-function-alias 'open-protocol-stream 'open-network-stream
"25.2")
"26.1")
(defun network-stream-open-plain (name buffer host service parameters)
(let ((start (with-current-buffer buffer (point)))
......
......@@ -611,7 +611,7 @@ If ARG is non-nil, instead prompt for connection parameters."
`(with-current-buffer rcirc-server-buffer
,@body))
(define-obsolete-function-alias 'rcirc-float-time 'float-time "25.2")
(define-obsolete-function-alias 'rcirc-float-time 'float-time "26.1")
(defun rcirc-prompt-for-encryption (server-plist)
"Prompt the user for the encryption method to use.
......
......@@ -1500,7 +1500,7 @@ of the line. This expects the xmltok-* variables to be set up as by
(t (back-to-indentation)))
(current-column))
(define-obsolete-function-alias 'nxml-complete #'completion-at-point "25.2")
(define-obsolete-function-alias 'nxml-complete #'completion-at-point "26.1")
;;; Movement
......
......@@ -4,7 +4,7 @@
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: mail, news
;; Obsolete-since: 25.2
;; Obsolete-since: 26.1
;; This file is part of GNU Emacs.
......
......@@ -409,9 +409,9 @@ Pass BUFFER to the XEmacs version of `move-to-column'."
(when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0)))))
(define-obsolete-function-alias 'org-float-time 'float-time "25.2")
(define-obsolete-function-alias 'org-float-time 'float-time "26.1")
;; `user-error' is only available from 24.2.50 on
;; `user-error' is only available from 24.3 on
(unless (fboundp 'user-error)
(defalias 'user-error 'error))
......
......@@ -1295,10 +1295,10 @@ be a list of the form returned by `event-start' and `event-end'."
(make-obsolete 'buffer-has-markers-at nil "24.3")
;; bug#23850
(make-obsolete 'string-to-unibyte "use `encode-coding-string'." "25.2")
(make-obsolete 'string-as-unibyte "use `encode-coding-string'." "25.2")
(make-obsolete 'string-to-multibyte "use `decode-coding-string'." "25.2")
(make-obsolete 'string-as-multibyte "use `decode-coding-string'." "25.2")
(make-obsolete 'string-to-unibyte "use `encode-coding-string'." "26.1")
(make-obsolete 'string-as-unibyte "use `encode-coding-string'." "26.1")
(make-obsolete 'string-to-multibyte "use `decode-coding-string'." "26.1")
(make-obsolete 'string-as-multibyte "use `decode-coding-string'." "26.1")
(defun log10 (x)
"Return (log X 10), the log base 10 of X."
......
......@@ -277,7 +277,7 @@ in parentheses follows the development revision and the time stamp.")
("1.4.0" . "24.3")
("1.4.1" . "24.5")
("1.4.2" . "24.5")
("1.5.0" . "25.2")
("1.5.0" . "26.1")
))
(unless (assoc rst-official-version rst-package-emacs-version-alist)
......
......@@ -579,7 +579,7 @@ If a string, interpret as the ZONE argument of `format-time-string'.")
(lambda (x) (or (booleanp x) (stringp x))))
(defun add-log-iso8601-time-zone (&optional time zone)
(declare (obsolete nil "25.2"))
(declare (obsolete nil "26.1"))
(format-time-string "%:::z" time zone))
(defvar add-log-iso8601-with-time-zone nil)
......
......@@ -3177,7 +3177,7 @@ See also `auto-save-file-name-p'."
"Obsolete, emerge now uses `shell-quote-argument'."
:type 'regexp
:group 'emerge)
(make-obsolete-variable 'emerge-metachars nil "25.2")
(make-obsolete-variable 'emerge-metachars nil "26.1")
(provide 'emerge)
......
......@@ -82,7 +82,7 @@ Used in `smerge-diff-base-upper' and related functions."
(((class color))
:foreground "red"))
"Face for the `upper' version of a conflict.")
(define-obsolete-face-alias 'smerge-mine 'smerge-upper "25.2")
(define-obsolete-face-alias 'smerge-mine 'smerge-upper "26.1")
(defvar smerge-upper-face 'smerge-upper)
(defface smerge-lower
......@@ -93,7 +93,7 @@ Used in `smerge-diff-base-upper' and related functions."
(((class color))
:foreground "green"))
"Face for the `lower' version of a conflict.")
(define-obsolete-face-alias 'smerge-other 'smerge-lower "25.2")
(define-obsolete-face-alias 'smerge-other 'smerge-lower "26.1")
(defvar smerge-lower-face 'smerge-lower)
(defface smerge-base
......@@ -702,7 +702,7 @@ this keeps \"LLL\"."
(smerge-keep-n 3)
(smerge-auto-leave))
(define-obsolete-function-alias 'smerge-keep-other 'smerge-keep-lower "25.2")
(define-obsolete-function-alias 'smerge-keep-other 'smerge-keep-lower "26.1")
(defun smerge-keep-upper ()
"Keep the \"upper\" version of a merge conflict.
......@@ -719,7 +719,7 @@ this keeps \"UUU\"."
(smerge-keep-n 1)
(smerge-auto-leave))
(define-obsolete-function-alias 'smerge-keep-mine 'smerge-keep-upper "25.2")
(define-obsolete-function-alias 'smerge-keep-mine 'smerge-keep-upper "26.1")
(defun smerge-get-current ()
(let ((i 3))
......@@ -760,7 +760,7 @@ this keeps \"UUU\"."
(smerge-diff 2 1))
(define-obsolete-function-alias 'smerge-diff-base-mine
'smerge-diff-base-upper "25.2")
'smerge-diff-base-upper "26.1")
(defun smerge-diff-base-lower ()
"Diff `base' and `lower' version in current conflict region."
......@@ -768,7 +768,7 @@ this keeps \"UUU\"."
(smerge-diff 2 3))
(define-obsolete-function-alias 'smerge-diff-base-other
'smerge-diff-base-lower "25.2")
'smerge-diff-base-lower "26.1")
(defun smerge-diff-upper-lower ()
"Diff `upper' and `lower' version in current conflict region."
......@@ -776,7 +776,7 @@ this keeps \"UUU\"."
(smerge-diff 1 3))
(define-obsolete-function-alias 'smerge-diff-mine-other
'smerge-diff-upper-lower "25.2")
'smerge-diff-upper-lower "26.1")
(defun smerge-match-conflict ()
"Get info about the conflict. Puts the info in the `match-data'.
......
......@@ -143,7 +143,7 @@ You should set this to t when using a non-system shell.\n\n"))))
'(undecided-dos . undecided-dos)
'(raw-text-dos . raw-text-dos)))))
(define-obsolete-function-alias 'set-default-process-coding-system
#'w32-set-default-process-coding-system "25.2")
#'w32-set-default-process-coding-system "26.1")
(add-hook 'before-init-hook #'w32-set-default-process-coding-system)
......@@ -235,7 +235,7 @@ This function is provided for backward compatibility, since
(check-coding-system coding-system)
(setq locale-coding-system coding-system))
(define-obsolete-function-alias 'set-w32-system-coding-system
#'w32-set-system-coding-system "25.2")
#'w32-set-system-coding-system "26.1")
;; locale-coding-system was introduced to do the same thing as
;; w32-system-coding-system. Use that instead.
......
......@@ -91,7 +91,7 @@ The third argument DOC is a documentation string for the widget."
name)
;; This is used by external widget code (in W3, at least).
(define-obsolete-function-alias 'widget-plist-member #'plist-member "25.2")
(define-obsolete-function-alias 'widget-plist-member #'plist-member "26.1")
;;; The End.
......
......@@ -1937,7 +1937,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(ignore-errors (delete-file tmp-name1))
(ignore-errors (delete-directory tmp-name2 'recursive)))))
;; The functions have been introduced in Emacs 25.2.
;; The functions were introduced in Emacs 26.1.
(ert-deftest tramp-test32-make-nearby-temp-file ()
"Check `make-nearby-temp-file' and `temporary-file-directory'."
(skip-unless (tramp--test-enabled))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment