equal
deleted
inserted
replaced
1244 (t |
1244 (t |
1245 (setq browse-url-browser-function 'browse-url-mozilla))) |
1245 (setq browse-url-browser-function 'browse-url-mozilla))) |
1246 |
1246 |
1247 (defun my-cygwin-search (str) |
1247 (defun my-cygwin-search (str) |
1248 "Search for Cygwin package on-line." |
1248 "Search for Cygwin package on-line." |
1249 (interactive (list (read-input "Search for Cygwin package on-line: "))) |
1249 (interactive (list (read-string "Search for Cygwin package on-line: "))) |
1250 (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str)) |
1250 (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str)) |
1251 ) |
1251 ) |
1252 |
1252 |
1253 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1253 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1254 (message "netbeans") |
1254 (message "netbeans") |
2458 ) |
2458 ) |
2459 (defun my-comint-send-string (string) |
2459 (defun my-comint-send-string (string) |
2460 "Send string to comint buffers. Useful for *compilation* read-only buffer. |
2460 "Send string to comint buffers. Useful for *compilation* read-only buffer. |
2461 Automaticaly append final newline." |
2461 Automaticaly append final newline." |
2462 (interactive |
2462 (interactive |
2463 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
2463 (list (read-string "Type string: " nil 'my-comint-send-hist-list)) |
2464 ) |
2464 ) |
2465 (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n")) |
2465 (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n")) |
2466 ) |
2466 ) |
2467 (my--eval-after-load compile |
2467 (my--eval-after-load compile |
2468 (define-key compilation-mode-map [C-return] 'my-comint-send-string)) |
2468 (define-key compilation-mode-map [C-return] 'my-comint-send-string)) |
3215 |
3215 |
3216 (setq my-html-template |
3216 (setq my-html-template |
3217 '("html" |
3217 '("html" |
3218 (nil |
3218 (nil |
3219 "\n<head>" \n |
3219 "\n<head>" \n |
3220 "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-input "Charset: ") "\">" \n |
3220 "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-string "Charset: ") "\">" \n |
3221 "<title>" (setq str (read-input "Title: ")) "</title>\n" |
3221 "<title>" (setq str (read-string "Title: ")) "</title>\n" |
3222 "</head>\n" |
3222 "</head>\n" |
3223 "<body>\n<h1>" str "</h1>" |
3223 "<body>\n<h1>" str "</h1>" |
3224 "\n<address>" \n |
3224 "\n<address>" \n |
3225 "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n |
3225 "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n |
3226 "</address>" \n |
3226 "</address>" \n |