Fix: Warning: `read-input' is an obsolete function (as of 22.1); use `read-string' instead.
--- a/.emacs-my Wed Mar 23 11:09:44 2016 +0200
+++ b/.emacs-my Wed Mar 23 11:13:11 2016 +0200
@@ -1246,7 +1246,7 @@
(defun my-cygwin-search (str)
"Search for Cygwin package on-line."
- (interactive (list (read-input "Search for Cygwin package on-line: ")))
+ (interactive (list (read-string "Search for Cygwin package on-line: ")))
(browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str))
)
@@ -2460,7 +2460,7 @@
"Send string to comint buffers. Useful for *compilation* read-only buffer.
Automaticaly append final newline."
(interactive
- (list (read-input "Type string: " nil 'my-comint-send-hist-list))
+ (list (read-string "Type string: " nil 'my-comint-send-hist-list))
)
(comint-send-string (get-buffer-process (current-buffer)) (concat string "\n"))
)
@@ -3217,8 +3217,8 @@
'("html"
(nil
"\n<head>" \n
- "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-input "Charset: ") "\">" \n
- "<title>" (setq str (read-input "Title: ")) "</title>\n"
+ "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-string "Charset: ") "\">" \n
+ "<title>" (setq str (read-string "Title: ")) "</title>\n"
"</head>\n"
"<body>\n<h1>" str "</h1>"
"\n<address>" \n