     (define-key map (concat prefix "L") (function rtags-copy-and-print-current-location))
     (define-key map (concat prefix "X") (function rtags-fix-fixit-at-point))
     (define-key map (concat prefix "B") (function rtags-show-rtags-buffer))
+    (define-key map (concat prefix "K") (function rtags-make-member))
     (define-key map (concat prefix "I") (function rtags-imenu))
     (define-key map (concat prefix "T") (function rtags-taglist))
     (define-key map (concat prefix "h") (function rtags-print-class-hierarchy))

          (let ((location (cdr (assoc 'location target))))
            (when (string-match "\\(.*\\):[0-9]+:[0-9]+:?" location)
              (let ((buffer (find-file-noselect (match-string-no-properties 1 location))))
                ;; (message "GOT BUF %s" (buffer-file-name buffer))
                (with-current-buffer buffer
                  (rtags-goto-line-col (cdr (assoc 'endLine sym))
                                       (cdr (assoc 'endColumn sym)))
                  (cons buffer (1+ (point))))))))))))

(defun rtags-find-peer (range)
  (let (loc)
    (save-excursion
      (while (and (not loc)

;;;###autoload
(defun rtags-symbol-type ()
  (interactive)
  (let* ((info (rtags-symbol-info-internal))
         (type (cdr (assoc 'type info))))
    (when (called-interactively-p 'any)
      (if type
