diff options
| author | Glenn Morris | 2008-11-25 04:23:59 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-11-25 04:23:59 +0000 |
| commit | 96ead4f94b44c4bad9d2bd3850efd886bc8fe8e9 (patch) | |
| tree | 95cbe85a95d1e29eed978091c0dd03aebe9a24f2 | |
| parent | 19454c0a2ae88842d3f7d333101cc3569816fd34 (diff) | |
| download | emacs-96ead4f94b44c4bad9d2bd3850efd886bc8fe8e9.tar.gz emacs-96ead4f94b44c4bad9d2bd3850efd886bc8fe8e9.zip | |
(x-set-cut-buffer): Fix signal arguments.
| -rw-r--r-- | lisp/select.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/select.el b/lisp/select.el index e4c3addc699..cbde5efe8af 100644 --- a/lisp/select.el +++ b/lisp/select.el | |||
| @@ -3,8 +3,8 @@ | |||
| 3 | ;; Maintainer: FSF | 3 | ;; Maintainer: FSF |
| 4 | ;; Keywords: internal | 4 | ;; Keywords: internal |
| 5 | 5 | ||
| 6 | ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, | 6 | ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
| 7 | ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 7 | ;; 2008 Free Software Foundation, Inc. |
| 8 | ;; Based partially on earlier release by Lucid. | 8 | ;; Based partially on earlier release by Lucid. |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -201,7 +201,7 @@ If PUSH is non-nil, also rotate the cut buffers: | |||
| 201 | this means the previous value of the primary cut buffer moves to the second | 201 | this means the previous value of the primary cut buffer moves to the second |
| 202 | cut buffer, and the second to the third, and so on (there are 8 buffers.) | 202 | cut buffer, and the second to the third, and so on (there are 8 buffers.) |
| 203 | Cut buffers are considered obsolete; you should use selections instead." | 203 | Cut buffers are considered obsolete; you should use selections instead." |
| 204 | (or (stringp string) (signal 'wrong-type-argument (list 'string string))) | 204 | (or (stringp string) (signal 'wrong-type-argument (list 'stringp string))) |
| 205 | (if push | 205 | (if push |
| 206 | (x-rotate-cut-buffers-internal 1)) | 206 | (x-rotate-cut-buffers-internal 1)) |
| 207 | (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) | 207 | (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) |