初稿: 2018-08-09 Thu 14:30
最終更新日: 2018-12-14 Fri 20:44
ホーム | 文書トップ | 目次

org-clone-local-variables
バッファローカル変数をコピーする

1: (defun org-clone-local-variables (from-buffer &optional regexp)
2:   "Clone local variables from FROM-BUFFER.
3: Optional argument REGEXP selects variables to clone."
4:   (dolist (pair (buffer-local-variables from-buffer))
5:     (pcase pair
6:       (`(,name . ,value)                ;ignore unbound variables
7:        (when (and (not (memq name org-unique-local-variables))
8:                   (or (null regexp) (string-match-p regexp (symbol-name name))))
9:          (ignore-errors (set (make-local-variable name) value)))))))

日付: 2018-08-09 Thu 14:30

著者: conao

Created: 2018-12-14 Fri 21:04

Validate