mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Remove some subr.el functions obsoleted in 22.1

Browse Source 
* 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.
This commit is contained in:
Mark Oteiza 2016-11-06 11:53:47 -05:00
parent 3424c27abb
commit 949144c279
2 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/NEWS
View File

@ -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' before running. This is controlled by the 'grep-save-buffers'
variable. 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 ** The variable 'text-quoting-style' no longer affects the treatment
of curved quotes in format arguments to functions like 'message' and of curved quotes in format arguments to functions like 'message' and

19
lisp/subr.el
View File

@ -1291,13 +1291,6 @@ be a list of the form returned by `event-start' and `event-end'."
;;;; Obsolescent names for functions. ;;;; 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 'forward-point "use (+ (point) N) instead." "23.1")
(make-obsolete 'buffer-has-markers-at nil "24.3") (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-to-multibyte "use `decode-coding-string'." "25.2")
(make-obsolete 'string-as-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) (defun log10 (x)
"Return (log X 10), the log base 10 of X." "Return (log X 10), the log base 10 of X."
(declare (obsolete log "24.4")) (declare (obsolete log "24.4"))