Function: viper-memq-char

viper-memq-char is a byte-compiled function defined in viper-util.el.gz.

Signature

(viper-memq-char CHAR LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; CHAR is supposed to be a char or an integer (positive or negative)
;; LIST is a list of chars, nil, and negative numbers
;; Check if CHAR is a member by trying to convert in characters, if necessary.
;; Introduced for compatibility with XEmacs, where integers are not the same as
;; chars.
(defun viper-memq-char (char list)
  (cond ((and (integerp char) (>= char 0))
	 (memq char list))
	((memq char list))))