Function: srecode-auto-choose-field

srecode-auto-choose-field is a byte-compiled function defined in getset.el.gz.

Signature

(srecode-auto-choose-field POINT)

Documentation

Choose a field for the get/set methods.

Base selection on the field related to POINT.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/getset.el.gz
(defun srecode-auto-choose-field (point)
  "Choose a field for the get/set methods.
Base selection on the field related to POINT."
  (save-excursion
    (when point
      (goto-char point))

    (let ((field (semantic-current-tag-of-class 'variable)))

      ;; If we get a field, make sure the user gets a chance to choose.
      (when field
	(if srecode-insert-getset-fully-automatic-flag
	    nil
	  (when (not (y-or-n-p
		      (format "Use field %s? " (semantic-tag-name field))))
	    (setq field nil))
	  ))
      field)))