Function: glasses-parenthesis-exception-p

glasses-parenthesis-exception-p is a byte-compiled function defined in glasses.el.gz.

Signature

(glasses-parenthesis-exception-p BEG END)

Documentation

Tell if (BEG, END) is an exception to glasses-separate-parentheses-p.

See glasses-separate-parentheses-exceptions.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/glasses.el.gz
;;; Utility functions

(defun glasses-parenthesis-exception-p (beg end)
  "Tell if (BEG, END) is an exception to `glasses-separate-parentheses-p'.
See `glasses-separate-parentheses-exceptions'."
  (save-match-data
    (let ((str (buffer-substring beg end)))
      (catch 'match
	(dolist (re glasses-separate-parentheses-exceptions)
	  (and (string-match re str) (throw 'match t)))))))