Function: mail-extr-safe-move-sexp

mail-extr-safe-move-sexp is a byte-compiled function defined in mail-extr.el.gz.

Signature

(mail-extr-safe-move-sexp ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mail-extr.el.gz
(defsubst mail-extr-safe-move-sexp (arg)
  ;; Safely skip over one balanced sexp, if there is one.  Return t if success.
  (condition-case error
      (progn
	(goto-char (or (scan-sexps (point) arg) (point)))
	t)
    (error
     ;; #### kludge kludge kludge kludge kludge kludge kludge !!!
     (if (string-equal (nth 1 error) "Unbalanced parentheses")
	 nil
       (while t
	 (signal (car error) (cdr error)))))))