print-quoted

[Shuhei KOBAYASHI]

いつからあるのかは調べていませんが, print-quoted という変数があるので
すね.

  print-quoted's value is 
  nil

  Documentation:
  Non-nil means print quoted forms with reader syntax.
  I.e., (quote foo) prints as 'foo, (function foo) as #'foo, and, backquoted
  forms print in the new syntax.

poe.el のために手動で backquote の style を変換していたのが馬鹿らしく
なりました(^^; 知らなかったのは私だけだったりして(^^;;;

(defun convert-to-old-backquote ()
  (interactive)
  (let ((print-quoted nil))
    (forward-sexp)
    (forward-sexp -1)
    (push-mark)
    (princ (read (current-buffer))
           (current-buffer))
    (forward-sexp -1)
    (kill-region (point)(mark t))))

(defun convert-to-new-backquote ()
  (interactive)
  (let ((print-quoted t))
    (forward-sexp)
    (forward-sexp -1)
    (push-mark)
    (princ (read (current-buffer))
           (current-buffer))
    (forward-sexp -1)
    (kill-region (point)(mark t))))

;; 関数定義は手抜きなので, あまり追及しないでください.
-- 
Shuhei KOBAYASHI