Lines Matching +refs:symbol +refs:plist
113 "Return t if OBJ is a quoted symbol, and is the name of a standard charset."
253 (defmacro charset-plist (charset)
262 (defun set-charset-plist (charset plist)
264 (aset (charset-info charset) 14 plist))
413 ;; Coding system is a symbol that has the property `coding-system'.
424 (defconst coding-spec-plist-idx 3)
429 ;; instead of having it in normal property list of Lisp symbol.
479 (defun coding-system-plist (coding-system)
481 (aref (coding-system-spec coding-system) coding-spec-plist-idx))
492 (plist-get (coding-system-plist coding-system) prop))
496 (let ((plist (coding-system-plist coding-system)))
497 (if plist
498 (plist-put plist prop val)
499 (aset (coding-system-spec coding-system) coding-spec-plist-idx
648 (or (assoc (symbol-name elt) coding-system-alist)
650 (cons (list (symbol-name elt)) coding-system-alist))))
657 (let ((mnemonic (string-to-char (or (plist-get props 'mnemonic) "?")))
658 (eol-type (plist-get props 'eol-type))
664 (if (setq tmp (plist-get props 'post-read-conversion))
665 (setq properties (plist-put properties 'post-read-conversion tmp)))
666 (if (setq tmp (plist-get props 'pre-write-conversion))
667 (setq properties (plist-put properties 'pre-write-conversion tmp)))
672 (if (plist-get props 'escape-quoted)
675 (let ((g0 (plist-get props 'charset-g0))
676 (g1 (plist-get props 'charset-g1))
677 (g2 (plist-get props 'charset-g2))
678 (g3 (plist-get props 'charset-g3))
682 (plist-get props 'input-charset-conversion)))
685 (plist-get props 'output-charset-conversion)))
690 (plist-get props 'input-charset-conversion)))
693 (plist-get props 'output-charset-conversion)))
696 (if (plist-get props 'force-g0-on-output)
700 (if (plist-get props 'force-g1-on-output)
704 (if (plist-get props 'force-g2-on-output)
708 (if (plist-get props 'force-g3-on-output)
713 ,(plist-get props 'short)
714 ,(not (plist-get props 'no-ascii-eol))
715 ,(not (plist-get props 'no-ascii-cntl))
716 ,(plist-get props 'seven)
718 ,(not (plist-get props 'lock-shift))
721 ,(plist-get props 'no-iso6429)
728 (,(plist-get props 'decode) . ,(plist-get props 'encode))
739 "Define a new coding system CODING-SYSTEM (symbol).
844 The value is a symbol whose name is the `MIME-charset' parameter of
877 o symbol (unix, dos, or mac)
879 The symbol `unix' means Unix-like EOL (LF), `dos' means
904 ;; is a symbol, perhaps, this function is called with XEmacs-style
1010 (let ((plist (list 'coding-category coding-category
1013 (plist-put plist 'no-initial-designation t))
1065 (plist-put plist prop val)))
1068 (setq coding-category (plist-get plist 'coding-category))
1069 (aset coding-spec coding-spec-plist-idx plist))
1103 (or (assoc (symbol-name coding-system) coding-system-alist)
1104 (setq coding-system-alist (cons (list (symbol-name coding-system))
1112 (let ((esc (intern (concat (symbol-name coding-system) "-with-esc")))
1136 (or (assoc (symbol-name alias) coding-system-alist)
1137 (setq coding-system-alist (cons (list (symbol-name alias))
1161 (defun autoload-coding-system (symbol form)
1165 (put symbol 'coding-system-define-form form)
1166 (setq coding-system-alist (cons (list (symbol-name symbol))
1169 (let ((name (concat (symbol-name symbol) elt)))
1307 :set (lambda (symbol value)
1478 ;; `ctext-non-standard-encodings-alist', or the symbol `utf-8'.
1603 (symbol :tag "Coding system"))))
1620 (symbol :tag "Coding system"))))
1695 system and SOURCE is a symbol `auto-coding-alist',
1803 (let ((name (symbol-name coding-system)))
1976 or a function symbol which, when called, returns such a cons cell."
2163 (defun define-translation-table (symbol &rest args)
2187 (put symbol 'translation-table table)
2194 (eq (car slot) symbol))
2196 (aset translation-table-vector id (cons symbol table))
2199 (put symbol 'translation-table-id id)
2216 (push (list (symbol-name
2237 (let ((old-table (make-symbol "old-table"))
2238 (old-buffer (make-symbol "old-buffer")))
2248 (defun define-translation-hash-table (symbol table)
2254 (unless (and (symbolp symbol)
2260 (put symbol 'translation-hash-table table)
2267 (eq (car slot) symbol))
2269 (aset translation-hash-table-vector id (cons symbol table))
2272 (put symbol 'translation-hash-table-id id)