Function: refer-yank-key

refer-yank-key is an interactive and byte-compiled function defined in refer.el.gz.

Signature

(refer-yank-key)

Documentation

Inserts at point in current buffer the "key" field of the entry found on the last refer-find-entry or refer-find-next-entry.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/refer.el.gz
(defun refer-yank-key ()
  "Inserts at point in current buffer the \"key\" field of the entry
found on the last `refer-find-entry' or `refer-find-next-entry'."
  (interactive)
  (let ((old-point (point)))
    (insert
     (save-window-excursion
       (save-excursion
         (find-file (car refer-saved-state))
         (if (looking-at
              "[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,")
             (buffer-substring (match-beginning 1) (match-end 1))
           (error "Cannot find key for entry in file %s"
                  (car refer-saved-state))))))
    (if (not (= (point) old-point))
      (set-mark old-point))))