;;; env.el --- functions to manipulate environment variables
-;; Copyright (C) 1991, 1994, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1994, 2000-2012 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: processes, unix
+;; Package: emacs
;; This file is part of GNU Emacs.
;;; Code:
-(eval-when-compile (require 'cl))
-
;; History list for environment variable names.
(defvar read-envvar-name-history nil)
(encode-coding-string
variable locale-coding-system)
variable)
- frame)))
+ (and frame
+ (assq 'environment
+ (frame-parameters frame))))))
(if (and enable-multibyte-characters value)
(setq value (decode-coding-string value locale-coding-system)))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "%s" (if value value "Not set")))
value))
(provide 'env)
-;; arch-tag: b7d6a8f7-bc81-46db-8e39-8d721d4ed0b8
;;; env.el ends here