;; -*- coding: utf-8-mcs-er -*- (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") (require 'cwiki-format) (defun www-add-display-feature-input-box (char &optional format) (unless format (setq format 'default)) (princ "
") (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er)) (princ (format "%s
" (if (or (eq format 'HEX)(eq format 'hex)) "0x" "") format)) ) (defun www-add-display-char-desc (uri-char &optional lang format) (when (stringp format) (setq format (intern format))) (let ((char (www-uri-decode-object 'character uri-char)) char-spec) (when (characterp char) (princ (format "