))
(defun cp-codepage-decoder (codepage)
- "If CODEPAGE is the name of a supported codepage, return its decode table;
-otherwise return nil."
+ "If CODEPAGE is the name of a supported codepage, return its decode table.
+Otherwise return nil."
(let ((cp (if (symbolp codepage) (symbol-name codepage) codepage)))
(cond
((stringp cp)
;;; Cut Buffer support
(defun x-get-cut-buffer (&optional which-one)
- "Returns the value of one of the 8 X server cut-buffers. Optional arg
-WHICH-ONE should be a number from 0 to 7, defaulting to 0.
+ "Returns the value of one of the 8 X server cut-buffers.
+Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0.
Cut buffers are considered obsolete; you should use selections instead."
(x-get-cut-buffer-internal
(if which-one