Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 4597:7191a7b120f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some cosmetic namespace cleanup, glyphs.el, coding.el. lisp/ChangeLog addition: 2009-01-15 Aidan Kehoe <kehoea@parhasard.net> * coding.el (force-coding-system-equivalency): Move three functions that we don't want to advertise to being anonymous lambdas instead. * glyphs.el : Remove #'define-constant-glyph and some functions it uses, replace the latter with anonymous lambdas and the former and its uses with a call to loop. Do the same with #'define-obsolete-pointer-glyph and the functions it uses. (init-glyphs): Untern this symbol once the associated function has been called; it's only needed at dump time, not at runtime.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 15 Jan 2009 19:21:43 +0000
parents e6a7054a9c30
children 8891b0477058
comparison
equal deleted inserted replaced
4576:774e5c7522bf 4597:7191a7b120f1
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)