summaryrefslogtreecommitdiff
path: root/lisp/startup.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@stanford.edu>2017-12-12 00:00:33 -0800
committerGlenn Morris <rgm@stanford.edu>2017-12-12 00:00:33 -0800
commit8c5be9cbaabc02f7c78f2bafb68e2e4ab35e130f (patch)
tree1fe185c91790c07567f20bd0e6fd53dae00f5eae /lisp/startup.el
parentb585a2040148fb5d7f21ba8e51c731c594c64ef2 (diff)
downloademacs-8c5be9cbaabc02f7c78f2bafb68e2e4ab35e130f.tar.gz
Make functions invocation-directory and invocation-name obsolete
* lisp/subr.el (invocation-directory, invocation-name): Mark the function versions as obsolete. (Bug#10476) * lisp/startup.el (tty-handle-args): * lisp/term/common-win.el (x-handle-xrm-switch, x-handle-name-switch): * lisp/term/ns-win.el (top-level): * lisp/term/pc-win.el (top-level): * lisp/term/w32-win.el (window-system-initialization): * lisp/term/x-win.el (top-level, x-handle-parent-id) (x-handle-smid, window-system-initialization): * test/lisp/htmlfontify-tests.el (htmlfontify-bug25468): Use invocation-directory and invocation-name as variables.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r--lisp/startup.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el
index a39c8f0fe76..4575f1f94d4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -781,7 +781,7 @@ to prepare for opening the first frame (e.g. open a connection to an X server)."
argval
(let ((case-fold-search t)
i)
- (setq argval (invocation-name))
+ (setq argval (copy-sequence invocation-name))
;; Change any . or * characters in name to
;; hyphens, so as to emulate behavior on X.