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.

diff --git a/etc/NEWS b/etc/NEWS
index 4bf5332fcc3987b5e4c96d980ac66153d2e7b31d..7dc95deab3d47e58369b0c5994a2c11bcbed518e 100644 (file)
--- 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 a713b92c6cdf6db9c6b7ae40092c7f273470e429..b5c1189aea8f8c42e0e540345f9136f148518d4c 100644 (file)
--- 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'."
 \f
 ;;;; 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"))