Function: PC-chop-word

PC-chop-word is a byte-compiled function defined in complete.el.gz.

Signature

(PC-chop-word NEW OLD)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/complete.el.gz
(defun PC-chop-word (new old)
  (let ((i -1)
	(j -1))
    (while (and (setq i (string-match PC-delim-regex old (1+ i)))
		(setq j (string-match PC-delim-regex new (1+ j)))))
    (if (and j
	     (or (not PC-word-failed-flag)
		 (setq j (string-match PC-delim-regex new (1+ j)))))
	(substring new 0 (1+ j))
      new)))