857 |
(make-obsolete 'dot-min 'point-min "before 19.15") |
(make-obsolete 'dot-min 'point-min "before 19.15") |
858 |
(make-obsolete 'dot-marker 'point-marker "before 19.15") |
(make-obsolete 'dot-marker 'point-marker "before 19.15") |
859 |
(make-obsolete 'buffer-flush-undo 'buffer-disable-undo "before 19.15") |
(make-obsolete 'buffer-flush-undo 'buffer-disable-undo "before 19.15") |
860 |
(make-obsolete 'baud-rate "use the baud-rate variable instead." "before 19.15") |
(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") |
861 |
(make-obsolete 'compiled-function-p 'byte-code-function-p "before 19.15") |
(make-obsolete 'compiled-function-p 'byte-code-function-p "before 19.15") |
862 |
(make-obsolete 'define-function 'defalias "20.1") |
(make-obsolete 'define-function 'defalias "20.1") |
863 |
|
(make-obsolete 'focus-frame "it does nothing." "19.32") |
864 |
|
(make-obsolete 'unfocus-frame "it does nothing." "19.32") |
865 |
|
|
866 |
(defun insert-string (&rest args) |
(defun insert-string (&rest args) |
867 |
"Mocklisp-compatibility insert function. |
"Mocklisp-compatibility insert function. |
878 |
"Return the value of the `baud-rate' variable." |
"Return the value of the `baud-rate' variable." |
879 |
baud-rate) |
baud-rate) |
880 |
|
|
881 |
(defalias 'focus-frame 'ignore) |
(defalias 'focus-frame 'ignore "") |
882 |
(defalias 'unfocus-frame 'ignore) |
(defalias 'unfocus-frame 'ignore "") |
883 |
|
|
884 |
|
|
885 |
;;;; Obsolescence declarations for variables. |
;;;; Obsolescence declarations for variables. |
1194 |
;; compatibility |
;; compatibility |
1195 |
|
|
1196 |
(make-obsolete 'process-kill-without-query |
(make-obsolete 'process-kill-without-query |
1197 |
"use `process-query-on-exit-flag'\nor `set-process-query-on-exit-flag'." |
"use `process-query-on-exit-flag' or `set-process-query-on-exit-flag'." |
1198 |
"21.5") |
"21.5") |
1199 |
(defun process-kill-without-query (process &optional flag) |
(defun process-kill-without-query (process &optional flag) |
1200 |
"Say no query needed if PROCESS is running when Emacs is exited. |
"Say no query needed if PROCESS is running when Emacs is exited. |
1341 |
(let ((n nil)) |
(let ((n nil)) |
1342 |
(when default |
(when default |
1343 |
(setq prompt |
(setq prompt |
1344 |
(if (string-match "\\(\\):[^:]*" prompt) |
(if (string-match "\\(\\):[ \t]*\\'" prompt) |
1345 |
(replace-match (format " [%s]" default) t t prompt 1) |
(replace-match (format " (default %s)" default) t t prompt 1) |
1346 |
(concat prompt (format " [%s] " default))))) |
(replace-regexp-in-string "[ \t]*\\'" |
1347 |
|
(format " (default %s) " default) |
1348 |
|
prompt t t)))) |
1349 |
(while |
(while |
1350 |
(progn |
(progn |
1351 |
(let ((str (read-from-minibuffer prompt nil nil nil nil |
(let ((str (read-from-minibuffer prompt nil nil nil nil |