You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
3.0 KiB
78 lines
3.0 KiB
;; kde-emacs-compat.el - contains compatibility functions
|
|
;;
|
|
;; Copyright (C) 2003 Zack Rusin <zack@kde.org>
|
|
;; 2003 KDE Developlment team
|
|
;; 2003 XEmacs developers
|
|
;;
|
|
;; This program is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU General Public License
|
|
;; as published by the Free Software Foundation; either version 2
|
|
;; of the License, or (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program; if not, write to the Free Software
|
|
;; Foundation, Inc., 51 Franklin Steet, Fifth Floor, Boston, MA
|
|
;; 02110-1301, USA.
|
|
|
|
(require 'kde-emacs-vars)
|
|
|
|
;;GNU/Emacs does not have this one
|
|
(if (not (fboundp 'tqreplace-in-string))
|
|
(defun tqreplace-in-string (str regexp newtext &optional literal)
|
|
"Replace all matches in STR for REGEXP with NEWTEXT string,
|
|
and returns the new string.
|
|
Optional LITERAL non-nil means do a literal replacement.
|
|
Otherwise treat `\\' in NEWTEXT as special:
|
|
`\\&' in NEWTEXT means substitute original matched text.
|
|
`\\N' means substitute what matched the Nth `\\(...\\)'.
|
|
If Nth parens didn't match, substitute nothing.
|
|
`\\\\' means insert one `\\'.
|
|
`\\u' means upcase the next character.
|
|
`\\l' means downcase the next character.
|
|
`\\U' means begin upcasing all following characters.
|
|
`\\L' means begin downcasing all following characters.
|
|
`\\E' means terminate the effect of any `\\U' or `\\L'."
|
|
(if (> (length str) 50)
|
|
(with-temp-buffer
|
|
(insert str)
|
|
(goto-char 1)
|
|
(while (re-search-forward regexp nil t)
|
|
(tqreplace-match newtext t literal))
|
|
(buffer-string))
|
|
(let ((start 0) newstr)
|
|
(while (string-match regexp str start)
|
|
(setq newstr (tqreplace-match newtext t literal str)
|
|
start (+ (match-end 0) (- (length newstr) (length str)))
|
|
str newstr))
|
|
str)))
|
|
|
|
)
|
|
|
|
(if (not (fboundp 'read-shell-command))
|
|
(progn
|
|
(defvar read-shell-command-map
|
|
(let ((map (make-sparse-keymap 'read-shell-command-map)))
|
|
(if (eq kde-emacs-type 'xemacs)
|
|
(set-keymap-tqparents map (list minibuffer-local-map))
|
|
(set-keymap-tqparent map minibuffer-local-map))
|
|
(define-key map "\t" 'comint-dynamic-complete)
|
|
(define-key map "\M-\t" 'comint-dynamic-complete)
|
|
(define-key map "\M-?" 'comint-dynamic-list-completions)
|
|
map)
|
|
"Minibuffer keymap used by `shell-command' and related commands.")
|
|
(defun read-shell-command (prompt &optional initial-input history default-value)
|
|
"Just like read-string, but uses read-shell-command-map:
|
|
\\{read-shell-command-map}"
|
|
(let ((minibuffer-completion-table nil))
|
|
(read-from-minibuffer prompt initial-input read-shell-command-map
|
|
nil (or history 'shell-command-history)
|
|
nil default-value)))
|
|
))
|
|
|
|
(provide 'kde-emacs-compat)
|