use replace-regexps-in-string instead of dired- and gs-replace-in-string

which are removed

4 files changed, 107 insertions, 118 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e428435116..dcd425b3cc8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2001-01-24  Sam Steingold  <sds@gnu.org>
+
+        * dired.el (dired-replace-in-string): Removed.
+        (dired-sort-toggle): Use `replace-regexps-in-string'
+        instead of `dired-replace-in-string'.
+        * dired-aux.el (dired-shell-stuff-it, dired-rename-subdir,
+        dired-rename-subdir-2, dired-insert-subdir-doinsert): Ditto.
+        * gs.el (gs-replace-in-string): Removed.
+        (gs-options): Use `replace-regexps-in-string'
+        instead of `gs-replace-in-string'.
+
 2001-01-24  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * mail/emacsbug.el (report-emacs-bug): Mention the fact that the
@@ -14,7 +25,7 @@
         the tool-bar.
 
         * frame.el (frame-initialize): Create the initial frame invisible.
-        
+
 2001-01-24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
         * language/chinese.el (chinese-iso-8bit): MIME:GB2312.
@@ -22,7 +33,7 @@
 
 2001-01-24  Gerd Moellmann  <gerd@gnu.org>
 
-        * international/mule-cmds.el (universal-coding-system-argument): 
+        * international/mule-cmds.el (universal-coding-system-argument):
         Handle commands with prefix args.
 
 2001-01-24  Edward M. Reingold  <reingold@emr.cs.uiuc.edu>
@@ -83,7 +94,7 @@
         * textmodes/texinfo.el (texinfo-mode): Use backward-paragraph
         as font-lock-beginning-of-syntax-function in font-lock-defaults.
 
-        * jit-lock.el (jit-lock-fontify-now): Don't bind 
+        * jit-lock.el (jit-lock-fontify-now): Don't bind
         font-lock-beginning-of-syntax-function to nil.
 
 2001-01-19  Eli Zaretskii  <eliz@is.elta.co.il>
@@ -96,7 +107,7 @@
 
         * font-lock.el (font-lock-default-fontify-region): Fix last
         change.
-        
+
         * font-lock.el (font-lock-multiline): Default to nil.
         (font-lock-default-fontify-region): If font-lock-multiline is
         nil, don't check the property `font-lock-multiline'.
@@ -107,23 +118,23 @@
 2001-01-19  Michael Kifer  <kifer@cs.sunysb.edu>
 
         * viper.el: Call initial-major-mode on startup.
-        
+
         * ediff.el (ediff-patch-file): Use better defaults.
-        
+
         * ediff-vers.el: Fix for 8+3 DOS file systems.
-        
+
 2001-01-19  Colin Walters <walters@cis.ohio-state.edu>
-        
+
         * ediff-util.el (ediff-compare-custom-diffs-maybe): Put diff in
         diff mode, if available.
-        
+
 2001-01-19  Michael Kifer  <kifer@cs.sunysb.edu>
-        
+
         * ediff-hook.el (ediff-xemacs-init-menus): Fixed add-menu-button.
-        
+
         * ediff-init.el (subst-char-in-string): Define and use it, unless
         it's already defined.
-        
+
 2001-01-18  Gerd Moellmann  <gerd@gnu.org>
 
         * tooltip.el (tooltip-hide-delay): New user-option.
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 4b966711012..05d998176f7 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -99,7 +99,7 @@ With prefix arg, prompt for argument SWITCHES which is options for `diff'."
     (setq failures
           (dired-bunch-files 10000
                              (function dired-check-process)
-                             (append 
+                             (append
                               (list operation program new-attribute)
                               (if (string-match "gnu" system-configuration)
                                   '("--") nil))
@@ -198,7 +198,7 @@ Uses the shell command coming from variables `lpr-command' and
    nil op-symbol files
    (function read-string)
    (format prompt (dired-mark-prompt arg files)) initial))
-
+
 ;;; Cleaning a directory: flagging some backups for deletion.
 
 (defvar dired-file-version-alist)
@@ -290,7 +290,7 @@ with a prefix argument."
          (progn (beginning-of-line)
                 (delete-char 1)
                 (insert dired-del-marker)))))
-
+
 ;;; Shell commands
 
 (defun dired-read-shell-command (prompt arg files)
@@ -379,12 +379,10 @@ the list of file names explicitly with the FILE-LIST argument."
   ;; your cmd.
   (let ((stuff-it
          (cond ((string-match "\\*" command)
-                (function (lambda (x)
-                            (dired-replace-in-string "\\*" x command))))
+                (lambda (x) (replace-regexp-in-string "\\*" x command)))
                ((string-match "\\?" command)
-                (function (lambda (x)
-                             (dired-replace-in-string "\\?" x command))))
-               (t (function (lambda (x) (concat command " " x)))))))
+                (lambda (x) (replace-regexp-in-string "\\?" x command)))
+               (t (lambda (x) (concat command " " x))))))
     (if on-each
         (mapconcat stuff-it (mapcar 'shell-quote-argument file-list) ";")
       (let ((fns (mapconcat 'shell-quote-argument
@@ -402,7 +400,7 @@ the list of file names explicitly with the FILE-LIST argument."
       (shell-command command)))
   ;; Return nil for sake of nconc in dired-bunch-files.
   nil)
-
+
 ;; In Emacs 19 this will return program's exit status.
 ;; This is a separate function so that ange-ftp can redefine it.
 (defun dired-call-process (program discard &rest arguments)
@@ -441,7 +439,7 @@ the list of file names explicitly with the FILE-LIST argument."
         (kill-buffer err-buffer)
         (message "%s...done" msg)
         nil))))
-
+
 ;; Commands that delete or redisplay part of the dired buffer.
 
 (defun dired-kill-line (&optional arg)
@@ -500,7 +498,7 @@ and use this command with a prefix argument (the value does not matter)."
         count))))
 
 ;;;###end dired-cmd.el
-
+
 ;;; 30K
 ;;;###begin dired-cp.el
 
@@ -557,7 +555,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
             (setq suffix (car suffixes) suffixes nil))
         (setq suffixes (cdr suffixes))))
     ;; If so, compute desired new name.
-    (if suffix  
+    (if suffix
         (setq newname (concat (substring file 0 (match-beginning 0))
                               (nth 1 suffix))))
     (cond (handler
@@ -591,7 +589,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
                                             "compress" "-f" file))
                   ;; Don't use NEWNAME with `compress'.
                   (concat file ".Z"))))))))
-
+
 (defun dired-mark-confirm (op-symbol arg)
   ;; Request confirmation from the user that the operation described
   ;; by OP-SYMBOL is to be performed on the marked files.
@@ -676,7 +674,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
                (apply 'message qprompt qs-args)
                (setq char (set qs-var (read-char))))
              (memq (cdr elt) '(t y yes)))))))
-
+
 ;;;###autoload
 (defun dired-do-compress (&optional arg)
   "Compress or uncompress marked (or next ARG) files."
@@ -749,7 +747,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
                           arg)
     (dired-move-to-filename)
     (message "Redisplaying...done")))
-
+
 (defun dired-update-file-line (file)
   ;; Delete the current line, and insert an entry for FILE.
   ;; If FILE is nil, then just delete the current line.
@@ -849,7 +847,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
               ;; It inserts the file's absolute name, rather than
               ;; the relative one.  That may be hard to fix since it
               ;; is probably controlled by something in ftp.
-              (goto-char opoint)        
+              (goto-char opoint)
               (let ((inserted-name (dired-get-filename 'verbatim)))
                 (if (file-name-directory inserted-name)
                     (progn
@@ -931,7 +929,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
                           (save-excursion (forward-line 1) (point))))
       (setq file (directory-file-name file))
       (dired-add-entry file (if (eq ?\040 marker) nil marker)))))
-
+
 ;;; Copy, move/rename, making hard and symbolic links
 
 (defcustom dired-recursive-copies nil
@@ -1028,7 +1026,7 @@ Special value `always' suppresses confirmation."
         (if (and buffer-file-name
                  (dired-in-this-tree buffer-file-name expanded-from-dir))
             (let ((modflag (buffer-modified-p))
-                  (to-file (dired-replace-in-string
+                  (to-file (replace-regexp-in-string
                             (concat "^" (regexp-quote from-dir))
                             to-dir
                             buffer-file-name)))
@@ -1087,8 +1085,8 @@ Special value `always' suppresses confirmation."
       ;; Update buffer-local dired-subdir-alist
       (setcar elt
               (dired-normalize-subdir
-               (dired-replace-in-string regexp newtext (car elt)))))))
-
+               (replace-regexp-in-string regexp newtext (car elt)))))))
+
 ;; The basic function for half a dozen variations on cp/mv/ln/ln -s.
 (defun dired-create-files (file-creator operation fn-list name-constructor
                                         &optional marker-char)
@@ -1183,7 +1181,7 @@ ESC or `q' to not overwrite any of the remaining files,
       (message "%s: %s file%s"
                operation success-count (dired-plural-s success-count)))))
   (dired-move-to-filename))
-
+
 (defun dired-do-create-files (op-symbol file-creator operation arg
                                         &optional marker-char op1
                                         how-to)
@@ -1304,7 +1302,7 @@ Optional arg HOW-TO is used to set the value of the into-dir variable
                                  (dired-current-directory)))))
           (or other-dir this-dir))
       this-dir)))
-
+
 ;;;###autoload
 (defun dired-create-directory (directory)
   "Create a directory called DIRECTORY."
@@ -1381,7 +1379,7 @@ When renaming multiple or marked files, you specify a directory."
   (dired-do-create-files 'move (function dired-rename-file)
                          "Move" arg dired-keep-marker-rename "Rename"))
 ;;;###end dired-cp.el
-
+
 ;;; 5K
 ;;;###begin dired-re.el
 (defun dired-do-create-files-regexp
@@ -1544,7 +1542,7 @@ Type SPC or `y' to %s one file, DEL or `n' to skip to next,
   (dired-rename-non-directory (function downcase) "Rename downcase" arg))
 
 ;;;###end dired-re.el
-
+
 ;;; 13K
 ;;;###begin dired-ins.el
 
@@ -1697,7 +1695,7 @@ With optional arg REMEMBER-MARKS, return an alist of marked files."
     (message "Reading directory %s..." dirname)
     (let ((dired-actual-switches
            (or switches
-               (dired-replace-in-string "R" "" dired-actual-switches))))
+               (replace-regexp-in-string "R" "" dired-actual-switches))))
       (if (equal dirname (car (car (reverse dired-subdir-alist))))
           ;; top level directory may contain wildcards:
           (dired-readin-insert dired-directory)
@@ -1800,7 +1798,7 @@ is always equal to STRING."
         (setq result
               (cons (substring str end) result)))
     (nreverse result)))
-
+
 ;;; moving by subdirectories
 
 ;;;###autoload
@@ -1843,7 +1841,7 @@ The next char is either \\n, or \\r if DIR is hidden."
          ;; at either \r or \n after this function succeeds.
          (progn (skip-chars-forward "^\r\n")
                 (point)))))
-
+
 ;;;###autoload
 (defun dired-mark-subdir-files ()
   "Mark all files except `.' and `..' in current subdirectory.
@@ -1905,7 +1903,7 @@ Lower levels are unaffected."
     (if pos
         (goto-char pos)
       (error "At the bottom"))))
-
+
 ;;; hiding
 
 (defun dired-unhide-subdir ()
@@ -1972,7 +1970,7 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
 
 ;;;###end dired-ins.el
 
-
+
 ;; Functions for searching in tags style among marked files.
 
 ;;;###autoload
@@ -1992,14 +1990,14 @@ with the command \\[tags-loop-continue]."
   (interactive
    "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
   (tags-query-replace from to delimited '(dired-get-marked-files)))
-
+
 ;;;###autoload
 (defun dired-show-file-type (file &optional deref-symlinks)
   "Print the type of FILE, according to the `file' command.
 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
-true then the type of the file linked to by FILE is printed instead." 
+true then the type of the file linked to by FILE is printed instead."
   (interactive (list (dired-get-filename t) current-prefix-arg))
-  (with-temp-buffer 
+  (with-temp-buffer
     (if deref-symlinks
         (call-process "file" nil t t "-L" file)
       (call-process "file" nil t t file))
diff --git a/lisp/dired.el b/lisp/dired.el
index 7b77ee77239..481fe3b6862 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -292,7 +292,7 @@ Subexpression 2 must end right before the \\n or \\r.")
          '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
    ;;
    ;; Symbolic links.
-   (list dired-re-sym 
+   (list dired-re-sym
          '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
    ;;
    ;; Files suffixed with `completion-ignored-extensions'.
@@ -303,7 +303,7 @@ Subexpression 2 must end right before the \\n or \\r.")
        (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$")
              '(".+" (dired-move-to-filename) nil (0 font-lock-string-face))))))
   "Additional expressions to highlight in Dired mode.")
-
+
 ;;; Macros must be defined before they are used, for the byte compiler.
 
 ;; Mark all files for which CONDITION evals to non-nil.
@@ -406,10 +406,10 @@ Optional second argument ARG forces to use other files.  If ARG is an
   (save-excursion
     (nreverse (dired-map-over-marks (dired-get-filename localp) arg))))
 
-
+
 ;; Function dired-ls is redefinable for VMS, ange-ftp, Prospero or
 ;; other special applications.
-
+
 ;; The dired command
 
 (defun dired-read-dir-and-switches (str)
@@ -514,12 +514,12 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
           (setq buffer (create-file-buffer (directory-file-name dirname)))))
     (set-buffer buffer)
     (if (not new-buffer-p)     ; existing buffer ...
-        (cond (switches        ; ... but new switches     
+        (cond (switches        ; ... but new switches
                ;; file list may have changed
-               (if (consp dir-or-list) 
+               (if (consp dir-or-list)
                    (setq dired-directory dir-or-list))
                ;; this calls dired-revert
-               (dired-sort-other switches))  
+               (dired-sort-other switches))
               ;; If directory has changed on disk, offer to revert.
               ((if (let ((attributes (file-attributes dirname))
                          (modtime (visited-file-modtime)))
@@ -586,7 +586,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
             (setq blist (cdr blist))))))
     found))
 
-
+
 ;; Read in a new dired buffer
 
 ;; dired-readin differs from dired-insert-subdir in that it accepts
@@ -749,7 +749,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
   ;; boundaries.
   (save-excursion (insert "  " (directory-file-name dir) ":\n")))
 
-
+
 ;; Reverting a dired buffer
 
 (defun dired-revert (&optional arg noconfirm)
@@ -857,7 +857,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
   (let ((handler (find-file-name-handler dir 'dired-uncache)))
     (if handler
         (funcall handler 'dired-uncache dir))))
-
+
 ;; dired mode key bindings and initialization
 
 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.")
@@ -1188,7 +1188,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
                   :help "Copy current file or all marked files"))
 
     (setq dired-mode-map map)))
-
+
 ;; Dired mode is suitable only for specially formatted data.
 (put 'dired-mode 'mode-class 'special)
 
@@ -1282,7 +1282,7 @@ Keybindings:
   (set (make-local-variable 'font-lock-defaults) '(dired-font-lock-keywords t))
   (dired-sort-other dired-actual-switches t)
   (run-hooks 'dired-mode-hook))
-
+
 ;; Idiosyncratic dired commands that don't deal with marks.
 
 (defun dired-summary ()
@@ -1402,7 +1402,7 @@ otherwise, display it in another buffer."
   (interactive)
   (let ((file (file-name-sans-versions (dired-get-filename) t)))
     (display-buffer (find-file-noselect file))))
-
+
 ;;; Functions for extracting and manipulating file names in dired buffers.
 
 (defun dired-get-filename (&optional localp no-error-if-not-filep)
@@ -1492,7 +1492,7 @@ DIR must be a directory name, not a file name."
 ;;; (or no-error
 ;;;     (error "%s: not in directory tree growing at %s" file dir))
     file))
-
+
 ;;; Functions for finding the file name in a dired buffer line.
 
 (defvar dired-move-to-filename-regexp
@@ -1502,7 +1502,7 @@ DIR must be a directory name, not a file name."
          ;; weiand: changed: month ends potentially with . or , or .,
 ;;old    (month (concat l l "+ *"))
          (month (concat l l "+[.]?,? *"))
-         ;; Recognize any non-ASCII character.  
+         ;; Recognize any non-ASCII character.
          ;; The purpose is to match a Kanji character.
          (k "[^\0-\177]")
          ;; (k "[^\x00-\x7f\x80-\xff]")
@@ -1515,7 +1515,7 @@ DIR must be a directory name, not a file name."
          (western (concat "\\(" month s dd "\\|" dd s month "\\)"
          ;; weiand: changed: year potentially unaligned
 ;;old                     s "\\(" HH:MM "\\|" s yyyy "\\|" yyyy s "\\)"))
-                          s "\\(" HH:MM 
+                          s "\\(" HH:MM
                                   "\\|" yyyy s s "?"
                                   "\\|" s "?" yyyy
                              "\\)"))
@@ -1612,7 +1612,7 @@ regardless of the language.")
         nil
       (point))))
 
-
+
 ;; Keeping Dired buffers in sync with the filesystem and with each other
 
 (defun dired-buffers-for-dir (dir &optional file)
@@ -1677,7 +1677,7 @@ regardless of the language.")
              (substring pattern matched-in-pattern))
             "\\'")))
 
-                 
+
 
 (defun dired-advertise ()
   ;;"Advertise in variable `dired-buffers' that we dired `default-directory'."
@@ -1696,7 +1696,7 @@ regardless of the language.")
   ;; Removing is also done as a side-effect in dired-buffer-for-dir.
   (setq dired-buffers
         (delq (assoc (expand-file-name dir) dired-buffers) dired-buffers)))
-
+
 ;; Tree Dired
 
 ;;; utility functions
@@ -1898,7 +1898,7 @@ Returns the new value of the alist."
   ;; You may redefine this function as you wish, e.g. like in dired-x.el.
   (end-of-line)
   (if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
-
+
 ;; These are hooks which make tree dired work.
 ;; They are in this file because other parts of dired need to call them.
 ;; But they don't call the rest of tree dired unless there are subdirs loaded.
@@ -1935,7 +1935,7 @@ Optional argument means return a file name relative to `default-directory'."
     (if (or (null (cdr dired-subdir-alist)) (not (dired-next-subdir 1 t t)))
         (point-max)
       (point))))
-
+
 ;; Deleting files
 
 (defcustom dired-recursive-deletes nil ; Default only delete empty directories.
@@ -1951,7 +1951,7 @@ Anything else means ask for each directory."
                  (const :tag "Ask for each top directory only" top))
   :group 'dired)
 
-;; Match anything but `.' and `..'. 
+;; Match anything but `.' and `..'.
 (defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")
 
 ;; Delete file, possibly delete a directory and all its files.
@@ -2064,7 +2064,7 @@ if there are no flagged files."
   (save-excursion (and (cdr dired-subdir-alist)
                        (dired-goto-subdir fn)
                        (dired-kill-subdir))))
-
+
 ;; Confirmation
 
 (defun dired-marker-regexp ()
@@ -2184,7 +2184,7 @@ FILES is the list of marked files."
             j (1+ j)
             files (cdr files)))
     rows))
-
+
 ;; Commands to mark or flag file(s) at or near current line.
 
 (defun dired-repeat-over-lines (arg function)
@@ -2325,7 +2325,7 @@ As always, hidden subdirs are not affected."
                        (list ?\040 dired-marker-char)
                      (list dired-marker-char ?\040))))
         (forward-line 1)))))
-
+
 ;;; Commands to mark or flag files based on their characteristics or names.
 
 (defvar dired-regexp-history nil
@@ -2444,7 +2444,7 @@ A prefix argument says to unflag those files instead."
      "auto save file")))
 
 (defvar dired-garbage-files-regexp
-  "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$" 
+  "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$"
   "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")
 
 (defun dired-flag-garbage-files ()
@@ -2504,7 +2504,7 @@ OLD and NEW are both characters used to mark files."
 
 (defun dired-unmark-all-files (mark &optional arg)
   "Remove a specific mark (or any mark) from every file.
-After this command, type the mark character to remove, 
+After this command, type the mark character to remove,
 or type RET to remove all marks.
 With prefix arg, query for each marked file.
 Type \\[help-command] at that time for help."
@@ -2529,7 +2529,7 @@ Type SPC or `y' to unmark one file, DEL or `n' to skip to next,
       (message (if (= count 1) "1 mark removed"
                  "%d marks removed")
                count))))
-
+
 ;; Logging failures operating on files, and showing the results.
 
 (defvar dired-log-buffer "*Dired log*")
@@ -2579,7 +2579,7 @@ Thus, use \\[backward-page] to find the beginning of a group of errors."
   ;; Log a summary describing a bunch of errors.
   (dired-log (concat "\n" string))
   (dired-log t))
-
+
 ;;; Sorting
 
 ;; Most ls can only sort by name or by date (with -t), nothing else.
@@ -2629,15 +2629,15 @@ With a prefix argument you can edit the current listing switches instead."
           (if (string-match " " dired-actual-switches)
               ;; New toggle scheme: add/remove a trailing " -t"
               (if (string-match " -t\\'" dired-actual-switches)
-                  (dired-replace-in-string " -t\\'" "" dired-actual-switches)
+                  (replace-regexp-in-string " -t\\'" "" dired-actual-switches)
                 (concat dired-actual-switches " -t"))
             ;; old toggle scheme: look for some 't' switch and add/remove it
             (concat
              "-l"
-             (dired-replace-in-string (concat "[-lt"
-                                              dired-ls-sorting-switches "]")
-                                      ""
-                                      dired-actual-switches)
+             (replace-regexp-in-string (concat "[-lt"
+                                               dired-ls-sorting-switches "]")
+                                       ""
+                                       dired-actual-switches)
              (if (string-match (concat "[t" dired-ls-sorting-switches "]")
                                dired-actual-switches)
                  ""
@@ -2645,17 +2645,6 @@ With a prefix argument you can edit the current listing switches instead."
   (dired-sort-set-modeline)
   (revert-buffer))
 
-(defun dired-replace-in-string (regexp newtext string)
-  ;; Replace REGEXP with NEWTEXT everywhere in STRING and return result.
-  ;; NEWTEXT is taken literally---no \\DIGIT escapes will be recognized.
-  (let ((result "") (start 0) mb me)
-    (while (string-match regexp string start)
-      (setq mb (match-beginning 0)
-            me (match-end 0)
-            result (concat result (substring string start mb) newtext)
-            start me))
-    (concat result (substring string start))))
-
 (defun dired-sort-other (switches &optional no-revert)
   ;; Specify new ls SWITCHES for current dired buffer.  Values matching
   ;; `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp' set the
@@ -2700,7 +2689,7 @@ To be called first in body of `dired-sort-other', etc."
             ;; No pre-R subdir alist, so revert to main directory
             ;; listing:
             (list (car (reverse dired-subdir-alist))))))))
-
+
 ;; To make this file smaller, the less common commands
 ;; go in a separate file.  But autoload them here
 ;; to make the separation invisible.
@@ -2913,9 +2902,9 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
 (autoload 'dired-show-file-type "dired-aux"
   "Print the type of FILE, according to the `file' command.
 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
-true then the type of the file linked to by FILE is printed instead." 
+true then the type of the file linked to by FILE is printed instead."
   t)
-
+
 (if (eq system-type 'vax-vms)
     (load "dired-vms"))
 
diff --git a/lisp/gs.el b/lisp/gs.el
index cbce2002cf4..89a21e19fcb 100644
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -36,7 +36,7 @@
   "The Ghostscript device to use to produce images.")
 
 
-(defvar gs-options 
+(defvar gs-options
   '("-q"
     ;"-dNOPAUSE"
     "-dBATCH"
@@ -46,54 +46,45 @@
 Arguments may contain place-holders `<file>' for the name of the
 input file, and `<device>' for the device to use.")
 
-
-(defun gs-replace-in-string (string find repl)
-  "Return STRING with all occurrences of FIND replaced by REPL.
-FIND is a regular expression."
-  (while (string-match find string)
-    (setq string (replace-match repl nil t string)))
-  string)
-
-
 (defun gs-options (device file)
   "Return a list of command line options with place-holders replaced.
 DEVICE is the value to substitute for the place-holder `<device>',
 FILE is the value to substitute for the place-holder `<file>'."
   (mapcar #'(lambda (option)
-              (setq option (gs-replace-in-string option "<device>" device)
-                    option (gs-replace-in-string option "<file>" file)))
+              (setq option (replace-regexp-in-string "<device>" device option)
+                    option (replace-regexp-in-string "<file>" file option)))
           gs-options))
-  
+
 
 ;; The GHOSTVIEW property (taken from gv 3.5.8).
-;; 
+;;
 ;; Type:
 ;;
 ;; STRING
-;; 
+;;
 ;; Parameters:
-;; 
+;;
 ;; BPIXMAP ORIENT LLX LLY URX URY XDPI YDPI [LEFT BOTTOM TOP RIGHT]
-;; 
+;;
 ;; Scanf format: "%d %d %d %d %d %d %f %f %d %d %d %d"
-;; 
+;;
 ;; Explanation of parameters:
-;; 
+;;
 ;; BPIXMAP: pixmap id of the backing pixmap for the window.  If no
 ;; pixmap is to be used, this parameter should be zero.  This
 ;; parameter must be zero when drawing on a pixmap.
-;; 
+;;
 ;; ORIENT: orientation of the page.  The number represents clockwise
 ;; rotation of the paper in degrees.  Permitted values are 0, 90, 180,
 ;; 270.
-;; 
+;;
 ;; LLX, LLY, URX, URY: Bounding box of the drawable.  The bounding box
 ;; is specified in PostScript points in default user coordinates.
-;; 
+;;
 ;; XDPI, YDPI: Resolution of window.  (This can be derived from the
 ;; other parameters, but not without roundoff error.  These values are
 ;; included to avoid this error.)
-;; 
+;;
 ;; LEFT, BOTTOM, TOP, RIGHT: (optional) Margins around the window.
 ;; The margins extend the imageable area beyond the boundaries of the
 ;; window.  This is primarily used for popup zoom windows.  I have
@@ -116,7 +107,7 @@ FILE is the value to substitute for the place-holder `<file>'."
                (/ (float (x-display-mm-height frame))
                   (float (x-display-pixel-height frame))))))
     (/ (* 25.4 mm) 72.0)))
-        
+
 
 (defun gs-set-ghostview-window-prop (frame spec img-width img-height)
   "Set the `GHOSTVIEW' window property of FRAME.
@@ -148,7 +139,7 @@ image in pixels."
                     (t "Monochrome"))))
     (x-change-window-property "GHOSTVIEW_COLORS"
                               (format "%s %s" mode pixel-colors))))
-              
+
 
 ;
 ;;;###autoload
@@ -178,7 +169,7 @@ the form \"WINDOW-ID PIXMAP-ID\".  Value is non-nil if successful."
 ;                       :bounding-box (22 171 567 738)
 ;                       :file ,ps-file)))
 ;    (put-text-property 1 2 'display spec)))
-;    
+;
 
 (provide 'gs)