[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp env.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs/lisp env.el |
Date: |
Sat, 24 Jan 2009 16:19:07 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 09/01/24 16:19:07
Modified files:
lisp : env.el
Log message:
(environment): Function removed.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/env.el?cvsroot=emacs&r1=1.47&r2=1.48
Patches:
Index: env.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/env.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- env.el 5 Jan 2009 03:19:03 -0000 1.47
+++ env.el 24 Jan 2009 16:19:06 -0000 1.48
@@ -205,54 +205,6 @@
(message "%s" (if value value "Not set")))
value))
-(defun environment (&optional frame)
- "Return a list of environment variables with their values.
-Each entry in the list is a string of the form NAME=VALUE.
-
-The returned list can not be used to change environment
-variables, only read them. See `setenv' to do that.
-
-If optional parameter FRAME is non-nil, then it should be a
-frame. The function returns the environment of that frame.
-
-The list is constructed by concatenating the elements of
-`process-environment' and the 'environment parameter of the
-selected frame, and removing duplicated and empty values.
-
-Non-ASCII characters are encoded according to the initial value of
-`locale-coding-system', i.e. the elements must normally be decoded for use.
-See `setenv' and `getenv'."
- (let* ((env (append process-environment
- ;; (frame-environment frame)
- nil))
- (scan env)
- prev seen)
- ;; Remove unset variables from the beginning of the list.
- (while (and env
- (or (not (stringp (car env)))
- (not (string-match "=" (car env)))))
- (or (member (car env) seen)
- (setq seen (cons (car env) seen)))
- (setq env (cdr env)
- scan env))
- (let (name)
- (while scan
- (cond ((or (not (stringp (car scan)))
- (not (string-match "=" (car scan))))
- ;; Unset variable.
- (or (member (car scan) seen)
- (setq seen (cons (car scan) seen)))
- (setcdr prev (cdr scan)))
- ((member (setq name (substring (car scan) 0 (string-match "="
(car scan)))) seen)
- ;; Duplicated variable.
- (setcdr prev (cdr scan)))
- (t
- ;; New variable.
- (setq seen (cons name seen))))
- (setq prev scan
- scan (cdr scan))))
- env))
-
(provide 'env)
;; arch-tag: b7d6a8f7-bc81-46db-8e39-8d721d4ed0b8
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp env.el,
Eli Zaretskii <=