From 949144c279e07e870ef4ee2de38787420b749828 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Sun, 6 Nov 2016 11:53:47 -0500 Subject: [PATCH] Remove some subr.el functions obsoleted in 22.1 * etc/NEWS: Document removed functions. Also mention the "face" variables that have been removed recently. * lisp/subr.el (window-dot, set-window-dot, read-input, show-buffer): (eval-current-buffer, string-to-int, insert-string, makehash): Remove. --- etc/NEWS | 5 +++++ lisp/subr.el | 19 ------------------- 2 files changed, 5 insertions(+), 19 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 4bf5332fcc3..7dc95deab3d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -527,6 +527,11 @@ mode bindings: 'C-c @ C-a', 'C-c @ C-t', 'C-c @ C-d', and 'C-c @ C-e.' before running. This is controlled by the 'grep-save-buffers' variable. +** Some obsolete functions, variables, and faces have been removed: +*** From subr.el: window-dot, set-window-dot, read-input, show-buffer, +eval-current-buffer, string-to-int +*** Many variables pointing to face symbols obsoleted in 22.1 + +++ ** The variable 'text-quoting-style' no longer affects the treatment of curved quotes in format arguments to functions like 'message' and diff --git a/lisp/subr.el b/lisp/subr.el index a713b92c6cd..b5c1189aea8 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1291,13 +1291,6 @@ be a list of the form returned by `event-start' and `event-end'." ;;;; Obsolescent names for functions. -(define-obsolete-function-alias 'window-dot 'window-point "22.1") -(define-obsolete-function-alias 'set-window-dot 'set-window-point "22.1") -(define-obsolete-function-alias 'read-input 'read-string "22.1") -(define-obsolete-function-alias 'show-buffer 'set-window-buffer "22.1") -(define-obsolete-function-alias 'eval-current-buffer 'eval-buffer "22.1") -(define-obsolete-function-alias 'string-to-int 'string-to-number "22.1") - (make-obsolete 'forward-point "use (+ (point) N) instead." "23.1") (make-obsolete 'buffer-has-markers-at nil "24.3") @@ -1307,18 +1300,6 @@ be a list of the form returned by `event-start' and `event-end'." (make-obsolete 'string-to-multibyte "use `decode-coding-string'." "25.2") (make-obsolete 'string-as-multibyte "use `decode-coding-string'." "25.2") -(defun insert-string (&rest args) - "Mocklisp-compatibility insert function. -Like the function `insert' except that any argument that is a number -is converted into a string by expressing it in decimal." - (declare (obsolete insert "22.1")) - (dolist (el args) - (insert (if (integerp el) (number-to-string el) el)))) - -(defun makehash (&optional test) - (declare (obsolete make-hash-table "22.1")) - (make-hash-table :test (or test 'eql))) - (defun log10 (x) "Return (log X 10), the log base 10 of X." (declare (obsolete log "24.4")) -- 2.39.5