Elisp'de bir dize derin kopyalansın mı?

Düzgünleştirilmiş bir dizem var. Orijinal dize özelliklerini korurken daha fazla özellik eklemek için bunun derin bir kopyasını yapmak istiyorum. Bunu nasıl kolayca yapabilirim?

Misal

Tek tek değerlendirin:

(setq test-str-1
      #(";; This `is' a test"
        0 3 (fontified nil face font-lock-comment-delimiter-face)
        3 9 (fontified nil face font-lock-comment-face)
        9 11 (fontified nil face (font-lock-constant-face font-lock-comment-face))
        11 19 (fontified nil face font-lock-comment-face)))
(setq test-str-2 (concat test-str-1))
(add-face-text-property 0 (length test-str-2) 'foobar t test-str-2)

Ve sonuç:

test-str-2
;; =>
#(";; This `is' a test" 0 3 (fontified nil face (font-lock-comment-delimiter-face foobar))
  3 9 (fontified nil face (font-lock-comment-face foobar))
  9 11 (fontified nil face (font-lock-constant-face font-lock-comment-face foobar))
  11 19 (fontified nil face (font-lock-comment-face foobar)))
test-str-1
;; =>
#(";; This `is' a test" 0 3 (face font-lock-comment-delimiter-face fontified nil)
  3 9 (face font-lock-comment-face fontified nil)
  9 11 (face (font-lock-constant-face font-lock-comment-face foobar) ; <= foobar is here
        fontified nil)
  11 19 (face font-lock-comment-face fontified nil))

font-lock-append-text-propertyText özelliğini eklemek için işlevi kullanabilirsiniz . Değeri yıkıcı bir şekilde değiştirmez.

Örneğin:

(setq test-str-1
      #(";; This `is' a test"
        0 3 (fontified nil face font-lock-comment-delimiter-face)
        3 9 (fontified nil face font-lock-comment-face)
        9 11 (fontified nil face (font-lock-constant-face font-lock-comment-face))
        11 19 (fontified nil face font-lock-comment-face)))
(setq test-str-2 (concat test-str-1))
(font-lock-append-text-property 0 (length test-str-2) 'face '(foobar t) test-str-2)


test-str-1
#(";; This `is' a test"
  0 3 (face font-lock-comment-delimiter-face fontified nil)
  3 9 (face font-lock-comment-face fontified nil)
  9 11 (face (font-lock-constant-face font-lock-comment-face) fontified nil)
  11 19 (face font-lock-comment-face fontified nil))

test-str-2
#(";; This `is' a test"
  0 3 (fontified nil face (font-lock-comment-delimiter-face foobar t))
  3 9 (fontified nil face (font-lock-comment-face foobar t))
  9 11 (fontified nil face (font-lock-constant-face font-lock-comment-face foobar t))
  11 19 (fontified nil face (font-lock-comment-face foobar t)))

Burada, test-str-1orijinal değerini korudu.

Bunu metin özellikleri üzerinde yineleyerek, alttaki özellik verilerini kopyalayarak ve mevcut özelliklerin üzerine yeni kopyalar yazarak yapabileceğinizi buldum.

(defun deep-copy-text-properties (str)
  (with-temp-buffer
    (insert str)
    (goto-char 1)
    (while (not (eobp))
      (set-text-properties (point)
                           (goto-char (next-char-property-change (point) (point-max)))
                           ;; copy-tree is the important part
                           (copy-tree (text-properties-at (1- (point))))))
    (buffer-string)))

Testlerimde, bu readçözümünüzden yaklaşık% 20 daha hızlıydı . Ayrıca bir geçici arabellek kullanmayan ve daha az kod olan ancak daha yavaş olan bir dizenin özelliklerini değiştiren bir sürüm yazdım.

C koduna bakıldığında, liste yapısını yeniden oluşturacak ancak öğeleri değere göre kopyalamayacak olan copy_sequence ile özellik plistlerini kopyalar, böylece örneğinizde liste değeri olan yüz gibi özellikler başvuru ile kopyalanır ve değiştirilir. Böcek ya da değil, bilmiyorum

Kullanabilirsiniz (concat the-original-string).

Örneğin:

(let ((s "TEXT"))
  (set-text-properties 2 3 '(:foreground "blue") s)
  (let ((q (concat s)))
    (add-text-properties 2 3 '(:background "red") q)
    (cons s q)))
;; Returns:
(#("TEXT" 2 3 (:foreground "blue")) . #("TEXT" 2 3 (:foreground "blue" :background "red")))

(Çok etkili olmayan) bir çözüm bulundu:

(setq test-str-2
      (read (prin1-to-string test-str-1)))