diff options
| author | Daniel Colascione | 2014-03-17 17:42:37 -0700 |
|---|---|---|
| committer | Daniel Colascione | 2014-03-17 17:42:37 -0700 |
| commit | ad97cc28d1420acf2b5537724bdc8a82745de8b6 (patch) | |
| tree | 866449ac7711fb13395c6eafcd3fa8498357dbd0 /lisp | |
| parent | 525d9a3cec58d0526c71a7080b07ad4c6fed7ec9 (diff) | |
| download | emacs-ad97cc28d1420acf2b5537724bdc8a82745de8b6.tar.gz emacs-ad97cc28d1420acf2b5537724bdc8a82745de8b6.zip | |
Remove old debug print
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/startup.el | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e23f4c19a85..7f25ebb2e6e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -67,6 +67,10 @@ | |||
| 67 | (rst-uncomment-region, rst-font-lock-find-unindented-line-match) | 67 | (rst-uncomment-region, rst-font-lock-find-unindented-line-match) |
| 68 | (rst-font-lock-handle-adornment-matcher): Mark unused arguments. | 68 | (rst-font-lock-handle-adornment-matcher): Mark unused arguments. |
| 69 | 69 | ||
| 70 | 2014-03-18 Daniel Colascione <dancol@dancol.org> | ||
| 71 | |||
| 72 | * startup.el (tty-handle-args): Remove debug message from 2007. | ||
| 73 | |||
| 70 | 2014-03-15 Juanma Barranquero <lekktu@gmail.com> | 74 | 2014-03-15 Juanma Barranquero <lekktu@gmail.com> |
| 71 | 75 | ||
| 72 | * term/ns-win.el (x-command-line-resources): Rename from ns-... version, | 76 | * term/ns-win.el (x-command-line-resources): Rename from ns-... version, |
diff --git a/lisp/startup.el b/lisp/startup.el index d6d0ff9bd42..129b54d974f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -736,7 +736,6 @@ opening the first frame (e.g. open a connection to an X server).") | |||
| 736 | (defun tty-handle-args (args) | 736 | (defun tty-handle-args (args) |
| 737 | "Handle the X-like command-line arguments \"-fg\", \"-bg\", \"-name\", etc." | 737 | "Handle the X-like command-line arguments \"-fg\", \"-bg\", \"-name\", etc." |
| 738 | (let (rest) | 738 | (let (rest) |
| 739 | (message "%S" args) | ||
| 740 | (while (and args | 739 | (while (and args |
| 741 | (not (equal (car args) "--"))) | 740 | (not (equal (car args) "--"))) |
| 742 | (let* ((argi (pop args)) | 741 | (let* ((argi (pop args)) |