mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-29 19:48:19 +00:00
; Replace "25.2" with "26.1" where appropriate, which is almost everywhere
Ref: http://lists.gnu.org/archive/html/emacs-devel/2016-09/msg00692.html http://lists.gnu.org/archive/html/emacs-devel/2016-01/msg01215.html
This commit is contained in:
parent
03c00f716f
commit
67df076793
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user