diff options
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/common-win.el | 6 | ||||
| -rw-r--r-- | lisp/term/x-win.el | 4 |
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 | ||