Function: message--rotate-fixnum-left

message--rotate-fixnum-left is a byte-compiled function defined in message.el.gz.

Signature

(message--rotate-fixnum-left N)

Documentation

Rotate the fixnum N left by one bit in a fixnum word.

The result is a fixnum.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message--rotate-fixnum-left (n)
  "Rotate the fixnum N left by one bit in a fixnum word.
The result is a fixnum."
  (logior (if (natnump n) 0 1)
	  (ash (cond ((< (ash most-positive-fixnum -1) n)
		      (logior n most-negative-fixnum))
		     ((< n (ash most-negative-fixnum -1))
		      (logand n most-positive-fixnum))
		     (n))
	       1)))