[Emacs-diffs] master 949144c: Remove some subr.el functions obsoleted in 22.1

[Mark Oteiza]

branch: master
commit 949144c279e07e870ef4ee2de38787420b749828
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    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 4bf5332..7dc95de 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 a713b92..b5c1189 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"))