Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 4598:8891b0477058

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 04 Feb 2009 12:35:45 +0000
parents 4fc32a3a086e 7191a7b120f1
children 0347879667ed
comparison
equal deleted inserted replaced
4596:4fc32a3a086e 4598:8891b0477058
241 ((= dim 2) 'iso-8-2) 241 ((= dim 2) 'iso-8-2)
242 (t 'iso-8-designate)))))) 242 (t 'iso-8-designate))))))
243 ))) 243 )))
244 244
245 245
246 ;;; Make certain variables equivalent to coding-system aliases 246 ;;; Make certain variables equivalent to coding-system aliases:
247 (defun dontusethis-set-value-file-name-coding-system-handler (sym args fun harg handlers) 247 (macrolet
248 (define-coding-system-alias 'file-name (or (car args) 'binary))) 248 ((force-coding-system-equivalency (&rest details-list)
249 249 (loop for (alias variable-symbol)
250 (dontusethis-set-symbol-value-handler 250 in details-list
251 'file-name-coding-system 251 with result = (list 'progn)
252 'set-value 252 do
253 'dontusethis-set-value-file-name-coding-system-handler) 253 (push
254 254 `(dontusethis-set-symbol-value-handler ',variable-symbol
255 (defun dontusethis-set-value-terminal-coding-system-handler (sym args fun harg handlers) 255 'set-value #'(lambda (sym args fun harg handlers)
256 (define-coding-system-alias 'terminal (or (car args) 'binary))) 256 (define-coding-system-alias ',alias
257 257 (or (car args) 'binary))))
258 (dontusethis-set-symbol-value-handler 258 result)
259 'terminal-coding-system 259 finally return (nreverse result))))
260 'set-value 260 (force-coding-system-equivalency
261 'dontusethis-set-value-terminal-coding-system-handler) 261 (file-name file-name-coding-system)
262 262 (terminal terminal-coding-system)
263 (defun dontusethis-set-value-keyboard-coding-system-handler (sym args fun harg handlers) 263 (keyboard keyboard-coding-system)))
264 (define-coding-system-alias 'keyboard (or (car args) 'binary)))
265
266 (dontusethis-set-symbol-value-handler
267 'keyboard-coding-system
268 'set-value
269 'dontusethis-set-value-keyboard-coding-system-handler)
270 264
271 (when (not (featurep 'mule)) 265 (when (not (featurep 'mule))
272 (define-coding-system-alias 'escape-quoted 'binary) 266 (define-coding-system-alias 'escape-quoted 'binary)
273 ;; these are so that gnus and friends work when not mule 267 ;; these are so that gnus and friends work when not mule
274 (define-coding-system-alias 'iso-8859-1 'raw-text) 268 (define-coding-system-alias 'iso-8859-1 'raw-text)