comparison lisp/subr.el @ 55884:cd90d2110ad4

(process-kill-without-query): Remove spurious "\n" on obsolescence string. (focus-frame, unfocus-frame): Add obsolescence declaration and empty docstring.

55883:cde9d1fff89c

(make-obsolete 'dot 'point		"before 19.15")
(make-obsolete 'dot-max 'point-max	"before 19.15")
(make-obsolete 'dot-min 'point-min	"before 19.15")
(make-obsolete 'dot-marker 'point-marker "before 19.15")
(make-obsolete 'buffer-flush-undo 'buffer-disable-undo "before 19.15")
(make-obsolete 'baud-rate "use the baud-rate variable instead." "before 19.15")
(make-obsolete 'compiled-function-p 'byte-code-function-p "before 19.15")
(make-obsolete 'define-function 'defalias "20.1")

(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."

;; Some programs still use this as a function.
(defun baud-rate ()
  "Return the value of the `baud-rate' variable."
  baud-rate)

(defalias 'focus-frame 'ignore)
(defalias 'unfocus-frame 'ignore)


;;;; Obsolescence declarations for variables.

(make-obsolete-variable 'directory-sep-char "do not use it." "21.1")

;; compatibility

(make-obsolete 'process-kill-without-query
               "use `process-query-on-exit-flag'\nor `set-process-query-on-exit-flag'."
               "21.5")
(defun process-kill-without-query (process &optional flag)
  "Say no query needed if PROCESS is running when Emacs is exited.
Optional second argument if non-nil says to require a query.
Value is t if a query was formerly required."

55884:cd90d2110ad4

(make-obsolete 'dot 'point		"before 19.15")
(make-obsolete 'dot-max 'point-max	"before 19.15")
(make-obsolete 'dot-min 'point-min	"before 19.15")
(make-obsolete 'dot-marker 'point-marker "before 19.15")
(make-obsolete 'buffer-flush-undo 'buffer-disable-undo "before 19.15")
(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15")
(make-obsolete 'compiled-function-p 'byte-code-function-p "before 19.15")
(make-obsolete 'define-function 'defalias "20.1")
(make-obsolete 'focus-frame "it does nothing." "19.32")
(make-obsolete 'unfocus-frame "it does nothing." "19.32")

(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."

;; Some programs still use this as a function.
(defun baud-rate ()
  "Return the value of the `baud-rate' variable."
  baud-rate)

(defalias 'focus-frame 'ignore "")
(defalias 'unfocus-frame 'ignore "")


;;;; Obsolescence declarations for variables.

(make-obsolete-variable 'directory-sep-char "do not use it." "21.1")

;; compatibility

(make-obsolete 'process-kill-without-query
               "use `process-query-on-exit-flag' or `set-process-query-on-exit-flag'."
               "21.5")
(defun process-kill-without-query (process &optional flag)
  "Say no query needed if PROCESS is running when Emacs is exited.
Optional second argument if non-nil says to require a query.
Value is t if a query was formerly required."