Commit 949144c2 authored by Mark Oteiza's avatar Mark Oteiza
Browse files

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.
parent 3424c27a
......@@ -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'
** 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
......@@ -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"))
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