Re: Compiling Elisp to a native code with a GCC plugin

[Stephen J. Turnbull]

Lars Magne Ingebrigtsen writes:

 > Is there any function like
 > 
 > (is-the-string-following-point-equal-to-this-string-p "foo ")

Does every one-line function need to be a built-in?

(defun is-the-string-following-point-equal-to-this-string-p (s)
  (string= s (buffer-substring (point) (+ (point) (length s)))))

or

(defun is-the-string-following-point-equal-to-this-string-p (s)
  (search-forward s (+ (point) (length s)) t))