Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 4611:9c97a5a8c241

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backed out changeset 38e8af61f38d As Vin points out in 20a807210902110554s40c75beai334c005940f6446e@mail.gmail.com , the Windows-specific coding systems have no #'query-coding-region support right now, it is not yet appropriate to require #'query-coding-region support on Mule builds.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 11 Feb 2009 15:30:59 +0000
parents 38e8af61f38d
children 308d34e9f07d
comparison
equal deleted inserted replaced
4610:38e8af61f38d 4611:9c97a5a8c241
597 (if unset 597 (if unset
598 (setq value nil) 598 (setq value nil)
599 (if substitute-env-vars 599 (if substitute-env-vars
600 (setq value (substitute-env-vars value)))) 600 (setq value (substitute-env-vars value))))
601 601
602 ;; XEmacs change: check whether the environment understands this variable, 602 ;; GNU fuck around with coding systems here. We do it at a much lower
603 ;; using our function for exactly that, don't use 603 ;; level; an equivalent of the following code of Handa's would be
604 ;; #'find-coding-systems-string or trust `undecided' to encode it. 604 ;; worthwhile here, though:
605 (query-coding-string (concat variable "=" value) 'native nil t) 605
606 ; (let ((codings (find-coding-systems-string (concat variable value))))
607 ; (unless (or (eq 'undecided (car codings))
608 ; (memq (coding-system-base locale-coding-system) codings))
609 ; (error "Can't encode `%s=%s' with `locale-coding-system'"
610 ; variable (or value "")))))
611
612 ;; But then right now our find-coding-systems analogue is in packages.
606 613
607 (if (string-match "=" variable) 614 (if (string-match "=" variable)
608 (error "Environment variable name `%s' contains `='" variable) 615 (error "Environment variable name `%s' contains `='" variable)
609 (let ((pattern (concat "\\`" (regexp-quote (concat variable "=")))) 616 (let ((pattern (concat "\\`" (regexp-quote (concat variable "="))))
610 (case-fold-search nil) 617 (case-fold-search nil)