mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(x-set-cut-buffer): Fix signal arguments.

Browse Source
This commit is contained in:
Glenn Morris 2008-11-25 04:23:59 +00:00
parent 19454c0a2a
commit 96ead4f94b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/select.el
View File

@ -3,8 +3,8 @@
;; Maintainer: FSF ;; Maintainer: FSF
;; Keywords: internal ;; Keywords: internal
;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; 2008 Free Software Foundation, Inc.
;; Based partially on earlier release by Lucid. ;; Based partially on earlier release by Lucid.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -201,7 +201,7 @@ If PUSH is non-nil, also rotate the cut buffers:
this means the previous value of the primary cut buffer moves to the second this means the previous value of the primary cut buffer moves to the second
cut buffer, and the second to the third, and so on (there are 8 buffers.) cut buffer, and the second to the third, and so on (there are 8 buffers.)
Cut buffers are considered obsolete; you should use selections instead." Cut buffers are considered obsolete; you should use selections instead."
(or (stringp string) (signal 'wrong-type-argument (list 'string string))) (or (stringp string) (signal 'wrong-type-argument (list 'stringp string)))
(if push (if push
(x-rotate-cut-buffers-internal 1)) (x-rotate-cut-buffers-internal 1))
(x-store-cut-buffer-internal 'CUT_BUFFER0 string)) (x-store-cut-buffer-internal 'CUT_BUFFER0 string))