Function: emerge-unslashify-name

emerge-unslashify-name is a byte-compiled function defined in emerge.el.gz.

Signature

(emerge-unslashify-name S)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
;; Quote any /s in a string by replacing them with \!.
;; Also, replace any \s by \\, to make it one-to-one.
(defun emerge-unslashify-name (s)
  (let ((limit 0))
    (while (string-match "[/\\]" s limit)
      (setq s (concat (substring s 0 (match-beginning 0))
		      (if (string= (substring s (match-beginning 0)
					      (match-end 0))
				   "/")
			  "\\!"
			"\\\\")
		      (substring s (match-end 0))))
      (setq limit (1+ (match-end 0)))))
  s)