Function: electric--after-char-pos

electric--after-char-pos is a byte-compiled function defined in electric.el.gz.

Signature

(electric--after-char-pos)

Documentation

Return the position after the char we just inserted.

Returns nil when we can't find this char.

Source Code

;; Defined in /usr/src/emacs/lisp/electric.el.gz
(defun electric--after-char-pos ()
  "Return the position after the char we just inserted.
Returns nil when we can't find this char."
  (let ((pos (point)))
    (when (or (eq (char-before) last-command-event) ;; Sanity check.
              (save-excursion
                (or (progn (skip-chars-backward " \t")
                           (setq pos (point))
                           (eq (char-before) last-command-event))
                    (progn (skip-chars-backward " \n\t")
                           (setq pos (point))
                           (eq (char-before) last-command-event)))))
      pos)))