diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2002-07-16 17:35:50 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2002-07-16 17:35:50 +0000 |
| commit | 1e5d9116ccf34ff7bb6a9eb8a90e58e01ba69162 (patch) | |
| tree | 6dfa7248f9baf02738f705e0f194183e83f3054a | |
| parent | c2d47f4b5b2328b37e2713ce8ef79dc6925456d0 (diff) | |
| download | emacs-1e5d9116ccf34ff7bb6a9eb8a90e58e01ba69162.tar.gz | |
(Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a lisp value.
| -rw-r--r-- | src/editfns.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index 800aef9f7c8..af5817deafe 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -3208,10 +3208,7 @@ usage: (format STRING &rest OBJECTS) */) } else if (SYMBOLP (args[n])) { - /* Use a temp var to avoid problems when ENABLE_CHECKING - is turned on. */ - struct Lisp_String *t = XSTRING (SYMBOL_NAME (args[n])); - XSETSTRING (args[n], t); + args[n] = SYMBOL_NAME (args[n]); if (STRING_MULTIBYTE (args[n]) && ! multibyte) { multibyte = 1; |