どのように私は引用に単一引用符を使用してカスタマイズすることができますか？

7

'代わりに単一引用符を使用して変数を保存するようにカスタマイズを教えることは可能quoteですか？

例：

…
'(package-archives '(("gnu"   . "http://elpa.gnu.org/packages/")
                     ("melpa" . "http://melpa.org/packages/")))
…

の代わりに：

…
'(package-archives (quote (("gnu"   . "http://elpa.gnu.org/packages/")
                           ("melpa" . "http://melpa.org/packages/"))))
…

customize

— マティアス・ベングツソン
ソース

11

Lispオブジェクトがを使用'して印刷され、#'によって制御されるかどうかprint-quoted。

Emacs Lispマニュアルの出力変数を参照してください。

そう、

(advice-add 'custom-save-all :around
            (lambda (orig)
              (let ((print-quoted t))
                (funcall orig))))

の'代わりに(quote ...)、の#'代わりに使用するようにカスタマイズに指示します(function ...)。

— コンスタンティン
ソース

どうもありがとう！それは本当に私のOCDを正しい方法でこすりました。：D

— Mattias Bengtsson 2014年

1

24.4より古いEmacsとの互換性が必要な場合は、次のようにしてください：

(defadvice custom-save-all (around custom-save-all-around)
  "Use abbreviated quotes for customize."
  (let ((print-quoted t))
    ad-do-it))

— マティアス・ベングツソン
ソース