mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
33b8ce865f
Reported and reduced by Mauricio Collares. * lisp/emacs-lisp/comp.el (comp-final): Fix coding system for the tmp file used to pass data the child processes. * test/src/comp-tests.el (45603-1): New testcase * test/src/comp-test-45603.el : New File.
28 lines
899 B
EmacsLisp
28 lines
899 B
EmacsLisp
;;; -*- lexical-binding: t; -*-
|
|
|
|
;; Reduced from ivy.el.
|
|
|
|
(defvar comp-test-45603-last)
|
|
(defvar comp-test-45603-mark-prefix)
|
|
(defvar comp-test-45603-directory)
|
|
(defvar comp-test-45603-marked-candidates)
|
|
|
|
(defun comp-test-45603--call-marked (action)
|
|
(let* ((prefix-len (length comp-test-45603-mark-prefix))
|
|
(marked-candidates
|
|
(mapcar
|
|
(lambda (s)
|
|
(let ((cand (substring s prefix-len)))
|
|
(if comp-test-45603-directory
|
|
(expand-file-name cand comp-test-45603-directory)
|
|
cand)))
|
|
comp-test-45603-marked-candidates))
|
|
(multi-action (comp-test-45603--get-multi-action comp-test-45603-last)))))
|
|
|
|
(defalias 'comp-test-45603--file-local-name
|
|
(if (fboundp 'file-local-name)
|
|
#'file-local-name
|
|
(lambda (file)
|
|
(or (file-remote-p file 'localname) file))))
|
|
|
|
(provide 'comp-test-45603)
|