aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/common-win.el6
-rw-r--r--lisp/term/x-win.el4
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el
index ccac1421004..98ad5acf268 100644
--- a/lisp/term/common-win.el
+++ b/lisp/term/common-win.el
@@ -112,7 +112,7 @@
112;; Handle the -xrm option. 112;; Handle the -xrm option.
113(defun x-handle-xrm-switch (switch) 113(defun x-handle-xrm-switch (switch)
114 (unless (consp x-invocation-args) 114 (unless (consp x-invocation-args)
115 (error "%s: missing argument to %s option" (invocation-name) switch)) 115 (error "%s: missing argument to `%s' option" (invocation-name) switch))
116 (setq x-command-line-resources 116 (setq x-command-line-resources
117 (if (null x-command-line-resources) 117 (if (null x-command-line-resources)
118 (pop x-invocation-args) 118 (pop x-invocation-args)
@@ -152,7 +152,7 @@
152;; the initial frame, too. 152;; the initial frame, too.
153(defun x-handle-name-switch (switch) 153(defun x-handle-name-switch (switch)
154 (or (consp x-invocation-args) 154 (or (consp x-invocation-args)
155 (error "%s: missing argument to %s option" (invocation-name) switch)) 155 (error "%s: missing argument to `%s' option" (invocation-name) switch))
156 (setq x-resource-name (pop x-invocation-args) 156 (setq x-resource-name (pop x-invocation-args)
157 initial-frame-alist (cons (cons 'name x-resource-name) 157 initial-frame-alist (cons (cons 'name x-resource-name)
158 initial-frame-alist))) 158 initial-frame-alist)))
@@ -207,7 +207,7 @@ have been processed."
207 (let ((elt (assoc completion option-alist))) 207 (let ((elt (assoc completion option-alist)))
208 ;; Check for abbreviated long option. 208 ;; Check for abbreviated long option.
209 (or elt 209 (or elt
210 (error "Option %s is ambiguous" this-switch)) 210 (error "Option `%s' is ambiguous" this-switch))
211 (setq this-switch completion)))))) 211 (setq this-switch completion))))))
212 (setq aelt (assoc this-switch option-alist)) 212 (setq aelt (assoc this-switch option-alist))
213 (if aelt (setq handler (nth 2 aelt))) 213 (if aelt (setq handler (nth 2 aelt)))
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index c32566181e5..ebd76a679a3 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -93,7 +93,7 @@
93;; Handle the --parent-id option. 93;; Handle the --parent-id option.
94(defun x-handle-parent-id (switch) 94(defun x-handle-parent-id (switch)
95 (or (consp x-invocation-args) 95 (or (consp x-invocation-args)
96 (error "%s: missing argument to %s option" (invocation-name) switch)) 96 (error "%s: missing argument to `%s' option" (invocation-name) switch))
97 (setq initial-frame-alist (cons 97 (setq initial-frame-alist (cons
98 (cons 'parent-id 98 (cons 'parent-id
99 (string-to-number (car x-invocation-args))) 99 (string-to-number (car x-invocation-args)))
@@ -104,7 +104,7 @@
104;; to give us back our session id we had on the previous run. 104;; to give us back our session id we had on the previous run.
105(defun x-handle-smid (switch) 105(defun x-handle-smid (switch)
106 (or (consp x-invocation-args) 106 (or (consp x-invocation-args)
107 (error "%s: missing argument to %s option" (invocation-name) switch)) 107 (error "%s: missing argument to `%s' option" (invocation-name) switch))
108 (setq x-session-previous-id (car x-invocation-args) 108 (setq x-session-previous-id (car x-invocation-args)
109 x-invocation-args (cdr x-invocation-args))) 109 x-invocation-args (cdr x-invocation-args)))
110 110