/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.307.2.14 by miles, Tue Jul 6 09:31:50 2004 UTC revision 1.307.2.15 by miles, Tue Jul 6 09:39:53 2004 UTC
# Line 857  and `event-end' functions." Line 857  and `event-end' functions."
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.
# Line 876  is converted into a string by expressing Line 878  is converted into a string by expressing
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.
# Line 1192  Optional args SENTINEL and FILTER specif Line 1194  Optional args SENTINEL and FILTER specif
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.
# Line 1339  Optional DEFAULT is a default password t Line 1341  Optional DEFAULT is a default password t
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

Legend:
Removed from v.1.307.2.14  
changed lines
  Added in v.1.307.2.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26