lisp/mh-e/mh-compat.el

17 ;; GNU Emacs is distributed in the hope that it will be useful,
47 (mh-do-in-gnu-emacs
50 (mh-do-in-xemacs
59 Simulate NOERROR argument in XEmacs which lacks it."
65 (defun-mh mh-assoc-string assoc-string (key list case-fold)
68 This function is used by Emacs versions that lack `assoc-string',
69 introduced in Emacs 22."
93 argument, introduced in Emacs 22."
103 introduced in Emacs 22."
113 introduced in Emacs 22."
127 It searches for IMAGE in `image-load-path' (excluding
131 in \"`data-directory'/images\".
134 first the directory in which IMAGE was found, followed by the
140 except that nil appears in place of the image directory.
157     ;; Check for images in image-load-path or load-path.
160                 ;; Images in image-load-path.
162                 ;; Images in load-path.
165       ;; Since the image might be in a nested directory (for
188         ;; First, find library in the load-path.
191             (error "Cannot find library %s in load-path" library))
243 (defun-mh mh-match-string-no-properties
244   match-string-no-properties (num &optional string)
245   "Return string of text matched by last search, without text properties.
246 This function is used by XEmacs that lacks `match-string-no-properties'.
252 (defun-mh mh-replace-regexp-in-string replace-regexp-in-string
253   (regexp rep string &optional fixedcase literal subexp start)
254   "Replace REGEXP with REP everywhere in STRING and return result.
255 This function is used by XEmacs that lacks `replace-regexp-in-string'.
256 The function `replace-in-string' is used instead.
258 `replace-in-string' are ignored."
259   (replace-in-string string regexp rep literal))
261 ;; Copy of constant from url-util.el in Emacs 22; needed by Emacs 21.
269       "A list of characters that are _NOT_ reserved in the URL spec.
272 (defun-mh mh-url-hexify-string url-hexify-string (str)
273   "Escape characters in a string.
274 This is a copy of `url-hexify-string' from url-util.el in Emacs
283        (char-to-string char)))
301 in Emacs 22 onward while the latter is used in previous versions and