Function: vhdl-backward-skip-label

vhdl-backward-skip-label is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-backward-skip-label &optional LIM)

Documentation

Skip backward over a label, with optional maximal limit.

If label is not found, nil is returned and point is not moved.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-backward-skip-label (&optional lim)
  "Skip backward over a label, with optional maximal limit.
If label is not found, nil is returned and point is not moved."
  (let ((lim (or lim (point-min)))
	placeholder)
    (if (save-excursion
	  (vhdl-backward-syntactic-ws lim)
	  (and (eq (preceding-char) ?:)
	       (progn
		 (backward-sexp)
		 (setq placeholder (point))
		 (looking-at vhdl-label-key))))
	(goto-char placeholder))
    ))