Closed witnessJo closed 6 years ago
Same issue after building the latest version of Rtags! rtags-symbol-info-internal: Wrong type argument: number-or-marker-p, "Aborted" [3 times]
I encountered the same issue on Ubuntu 14.04 with Emacs 25.3.
I encountered the same issue with Emacs 26.1 on CentOS
Any chance someone can post a backtrace...toggle-debug-on-error
? Are there multiple rtags.elc files in the load path, byte-compiled with a different Emacs version?
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p "Aborted") rtags-call-rc(:path "/home/xxx/project/src/program.cpp" :noerror t :silent-query nil "-U" "/home/xxx/project/program.cpp:104:12:" "--elisp" "-K" nil nil nil nil) rtags-symbol-info-internal(:location nil) rtags-current-symbol-name() rtags-current-symbol() rtags-find-symbol-at-point(nil) funcall-interactively(rtags-find-symbol-at-point nil) call-interactively(rtags-find-symbol-at-point nil nil) command-execute(rtags-find-symbol-at-point)
No multiple rtags.elc.
[No multiple rtags.elc, and only one version of Emacs on the system]
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p "Aborted") =("Aborted" 0) (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics (progn (rtags-diagnostics)))) ((= result rtags-exit-code-connection-failure) (if output (progn (erase-buffer))) (setq rtags-last-request-not-connected t) (if noerror nil (rtags--error (quote rtags-rdm-not-running)))) ((= result rtags-exit-code-protocol-failure) (if output (progn (erase-buffer))) (if noerror nil (rtags--error (quote rtags-protocol-mismatch)))) ((= result rtags-exit-code-not-indexed) (if noerror nil (rtags--message (quote rtags-file-not-indexed) (or path "buffer"))) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t)) (save-excursion (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics (progn (rtags-diagnostics)))) ((= result rtags-exit-code-connection-failure) (if output (progn (erase-buffer))) (setq rtags-last-request-not-connected t) (if noerror nil (rtags--error (quote rtags-rdm-not-running)))) ((= result rtags-exit-code-protocol-failure) (if output (progn (erase-buffer))) (if noerror nil (rtags--error (quote rtags-protocol-mismatch)))) ((= result rtags-exit-code-not-indexed) (if noerror nil (rtags--message (quote rtags-file-not-indexed) (or path "buffer"))) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if (car async) (progn (set-process-filter result (car async)))) (if (cdr async) (progn (set-process-sentinel result (cdr async))))) (goto-char (point-min)) (save-excursion (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics (progn (rtags-diagnostics)))) ((= result rtags-exit-code-connection-failure) (if output (progn (erase-buffer))) (setq rtags-last-request-not-connected t) (if noerror nil (rtags--error (quote rtags-rdm-not-running)))) ((= result rtags-exit-code-protocol-failure) (if output (progn (erase-buffer))) (if noerror nil (rtags--error (quote rtags-protocol-mismatch)))) ((= result rtags-exit-code-not-indexed) (if noerror nil (rtags--message (quote rtags-file-not-indexed) (or path "buffer"))) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t)))) (let ((result (cond ((and unsaved async) (let ((proc ...)) (save-current-buffer (set-buffer unsaved) (save-restriction ... ...)) proc)) (async (apply (function start-file-process) "rc" (current-buffer) rc arguments)) ((and unsaved (or (buffer-modified-p unsaved) (not ...))) (save-current-buffer (set-buffer unsaved) (save-restriction (widen) (apply ... ... ... rc nil output nil arguments)))) (unsaved (apply (function process-file) rc (rtags-untrampify (rtags-buffer-file-name unsaved)) output nil arguments) nil) (t (apply (function process-file) rc nil output nil arguments))))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if (car async) (progn (set-process-filter result (car async)))) (if (cdr async) (progn (set-process-sentinel result (cdr async))))) (goto-char (point-min)) (save-excursion (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics (progn (rtags-diagnostics)))) ((= result rtags-exit-code-connection-failure) (if output (progn (erase-buffer))) (setq rtags-last-request-not-connected t) (if noerror nil (rtags--error (quote rtags-rdm-not-running)))) ((= result rtags-exit-code-protocol-failure) (if output (progn (erase-buffer))) (if noerror nil (rtags--error (quote rtags-protocol-mismatch)))) ((= result rtags-exit-code-not-indexed) (if noerror nil (rtags--message (quote rtags-file-not-indexed) (or path "buffer"))) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t)))) (or async (and (> (point-max) (point-min)) (= result rtags-exit-code-success)))) (if (not rc) (if noerror nil (rtags--error (quote rtags-cannot-find-rc))) (setq output (rtags--convert-output-buffer output)) (setq rtags-last-request-not-connected nil) (setq rtags-last-request-not-indexed nil) (setq arguments (rtags-remove-keyword-params arguments)) (setq arguments (rtags-remove (quote (lambda (arg) (not arg))) arguments)) (setq arguments (mapcar (quote rtags-untrampify) arguments)) (setq arguments (cons (format "--verify-version=%d" rtags-protocol-version) arguments)) (setq arguments (cons "-z" arguments)) (setq path (rtags-untrampify path)) (if path-filter (progn (setq arguments (cons (concat "--path-filter=" (rtags-untrampify path-filter)) arguments)) (if path-filter-regex (progn (setq arguments (cons "-Z" arguments)))))) (if (and unsaved (rtags-buffer-file-name unsaved)) (progn (setq arguments (cons (format "--unsaved-file=%s:%d" (rtags-untrampify (rtags-buffer-file-name unsaved)) (save-current-buffer (set-buffer unsaved) (rtags-buffer-size))) arguments)))) (if rtags-rc-config-path (progn (setq arguments (cons (concat "--config=" (expand-file-name rtags-rc-config-path)) arguments)))) (if rtags-completions-enabled (progn (setq arguments (cons "-b" arguments)))) (if silent (progn (setq arguments (cons "--silent" arguments)) (setq output nil))) (if silent-query (progn (setq arguments (cons "--silent-query" arguments)))) (if range-filter (progn (setq arguments (cons (format "--range-filter=%d-%d" (or range-min (rtags-offset ...)) (or range-max (rtags-offset ...))) arguments)))) (if (or timeout rtags-timeout) (progn (setq arguments (cons (format "--timeout=%d" (or timeout rtags-timeout)) arguments)))) (if (and rtags-show-containing-function (not (member "-N" arguments))) (progn (setq arguments (cons "-o" arguments)))) (cond ((stringp path) (setq arguments (cons (concat "--current-file=" path) arguments))) (path nil) (default-directory (setq arguments (cons (concat "--current-file=" (rtags-untrampify default-directory)) arguments))) (t nil)) (if (> (length rtags-socket-file) 0) (progn (setq arguments (cons (rtags--get-socket-file-switch) arguments)))) (if rtags-rc-log-enabled (progn (rtags-log (concat rc " " (rtags-combine-strings arguments))))) (let ((result (cond ((and unsaved async) (let (...) (save-current-buffer ... ...) proc)) (async (apply (function start-file-process) "rc" (current-buffer) rc arguments)) ((and unsaved (or ... ...)) (save-current-buffer (set-buffer unsaved) (save-restriction ... ...))) (unsaved (apply (function process-file) rc (rtags-untrampify ...) output nil arguments) nil) (t (apply (function process-file) rc nil output nil arguments))))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if (car async) (progn (set-process-filter result (car async)))) (if (cdr async) (progn (set-process-sentinel result (cdr async))))) (goto-char (point-min)) (save-excursion (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics (progn ...))) ((= result rtags-exit-code-connection-failure) (if output (progn ...)) (setq rtags-last-request-not-connected t) (if noerror nil (rtags--error ...))) ((= result rtags-exit-code-protocol-failure) (if output (progn ...)) (if noerror nil (rtags--error ...))) ((= result rtags-exit-code-not-indexed) (if noerror nil (rtags--message ... ...)) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t)))) (or async (and (> (point-max) (point-min)) (= result rtags-exit-code-success))))) (let ((rc (rtags-executable-find "rc"))) (if (not rc) (if noerror nil (rtags--error (quote rtags-cannot-find-rc))) (setq output (rtags--convert-output-buffer output)) (setq rtags-last-request-not-connected nil) (setq rtags-last-request-not-indexed nil) (setq arguments (rtags-remove-keyword-params arguments)) (setq arguments (rtags-remove (quote (lambda (arg) (not arg))) arguments)) (setq arguments (mapcar (quote rtags-untrampify) arguments)) (setq arguments (cons (format "--verify-version=%d" rtags-protocol-version) arguments)) (setq arguments (cons "-z" arguments)) (setq path (rtags-untrampify path)) (if path-filter (progn (setq arguments (cons (concat "--path-filter=" (rtags-untrampify path-filter)) arguments)) (if path-filter-regex (progn (setq arguments (cons "-Z" arguments)))))) (if (and unsaved (rtags-buffer-file-name unsaved)) (progn (setq arguments (cons (format "--unsaved-file=%s:%d" (rtags-untrampify ...) (save-current-buffer ... ...)) arguments)))) (if rtags-rc-config-path (progn (setq arguments (cons (concat "--config=" (expand-file-name rtags-rc-config-path)) arguments)))) (if rtags-completions-enabled (progn (setq arguments (cons "-b" arguments)))) (if silent (progn (setq arguments (cons "--silent" arguments)) (setq output nil))) (if silent-query (progn (setq arguments (cons "--silent-query" arguments)))) (if range-filter (progn (setq arguments (cons (format "--range-filter=%d-%d" (or range-min ...) (or range-max ...)) arguments)))) (if (or timeout rtags-timeout) (progn (setq arguments (cons (format "--timeout=%d" (or timeout rtags-timeout)) arguments)))) (if (and rtags-show-containing-function (not (member "-N" arguments))) (progn (setq arguments (cons "-o" arguments)))) (cond ((stringp path) (setq arguments (cons (concat "--current-file=" path) arguments))) (path nil) (default-directory (setq arguments (cons (concat "--current-file=" (rtags-untrampify default-directory)) arguments))) (t nil)) (if (> (length rtags-socket-file) 0) (progn (setq arguments (cons (rtags--get-socket-file-switch) arguments)))) (if rtags-rc-log-enabled (progn (rtags-log (concat rc " " (rtags-combine-strings arguments))))) (let ((result (cond ((and unsaved async) (let ... ... proc)) (async (apply ... "rc" ... rc arguments)) ((and unsaved ...) (save-current-buffer ... ...)) (unsaved (apply ... rc ... output nil arguments) nil) (t (apply ... rc nil output nil arguments))))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if (car async) (progn (set-process-filter result ...))) (if (cdr async) (progn (set-process-sentinel result ...)))) (goto-char (point-min)) (save-excursion (cond ((= result rtags-exit-code-success) (if rtags-autostart-diagnostics ...)) ((= result rtags-exit-code-connection-failure) (if output ...) (setq rtags-last-request-not-connected t) (if noerror nil ...)) ((= result rtags-exit-code-protocol-failure) (if output ...) (if noerror nil ...)) ((= result rtags-exit-code-not-indexed) (if noerror nil ...) (erase-buffer) (setq rtags-last-request-not-indexed t)) (t)))) (or async (and (> (point-max) (point-min)) (= result rtags-exit-code-success)))))) (save-excursion (let ((rc (rtags-executable-find "rc"))) (if (not rc) (if noerror nil (rtags--error (quote rtags-cannot-find-rc))) (setq output (rtags--convert-output-buffer output)) (setq rtags-last-request-not-connected nil) (setq rtags-last-request-not-indexed nil) (setq arguments (rtags-remove-keyword-params arguments)) (setq arguments (rtags-remove (quote (lambda (arg) (not arg))) arguments)) (setq arguments (mapcar (quote rtags-untrampify) arguments)) (setq arguments (cons (format "--verify-version=%d" rtags-protocol-version) arguments)) (setq arguments (cons "-z" arguments)) (setq path (rtags-untrampify path)) (if path-filter (progn (setq arguments (cons (concat "--path-filter=" ...) arguments)) (if path-filter-regex (progn (setq arguments ...))))) (if (and unsaved (rtags-buffer-file-name unsaved)) (progn (setq arguments (cons (format "--unsaved-file=%s:%d" ... ...) arguments)))) (if rtags-rc-config-path (progn (setq arguments (cons (concat "--config=" ...) arguments)))) (if rtags-completions-enabled (progn (setq arguments (cons "-b" arguments)))) (if silent (progn (setq arguments (cons "--silent" arguments)) (setq output nil))) (if silent-query (progn (setq arguments (cons "--silent-query" arguments)))) (if range-filter (progn (setq arguments (cons (format "--range-filter=%d-%d" ... ...) arguments)))) (if (or timeout rtags-timeout) (progn (setq arguments (cons (format "--timeout=%d" ...) arguments)))) (if (and rtags-show-containing-function (not (member "-N" arguments))) (progn (setq arguments (cons "-o" arguments)))) (cond ((stringp path) (setq arguments (cons (concat "--current-file=" path) arguments))) (path nil) (default-directory (setq arguments (cons (concat "--current-file=" ...) arguments))) (t nil)) (if (> (length rtags-socket-file) 0) (progn (setq arguments (cons (rtags--get-socket-file-switch) arguments)))) (if rtags-rc-log-enabled (progn (rtags-log (concat rc " " (rtags-combine-strings arguments))))) (let ((result (cond (... ...) (async ...) (... ...) (unsaved ... nil) (t ...)))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if (car async) (progn ...)) (if (cdr async) (progn ...))) (goto-char (point-min)) (save-excursion (cond (... ...) (... ... ... ...) (... ... ...) (... ... ... ...) (t)))) (or async (and (> (point-max) (point-min)) (= result rtags-exit-code-success))))))) (progn (save-excursion (let ((rc (rtags-executable-find "rc"))) (if (not rc) (if noerror nil (rtags--error (quote rtags-cannot-find-rc))) (setq output (rtags--convert-output-buffer output)) (setq rtags-last-request-not-connected nil) (setq rtags-last-request-not-indexed nil) (setq arguments (rtags-remove-keyword-params arguments)) (setq arguments (rtags-remove (quote (lambda ... ...)) arguments)) (setq arguments (mapcar (quote rtags-untrampify) arguments)) (setq arguments (cons (format "--verify-version=%d" rtags-protocol-version) arguments)) (setq arguments (cons "-z" arguments)) (setq path (rtags-untrampify path)) (if path-filter (progn (setq arguments (cons ... arguments)) (if path-filter-regex (progn ...)))) (if (and unsaved (rtags-buffer-file-name unsaved)) (progn (setq arguments (cons ... arguments)))) (if rtags-rc-config-path (progn (setq arguments (cons ... arguments)))) (if rtags-completions-enabled (progn (setq arguments (cons "-b" arguments)))) (if silent (progn (setq arguments (cons "--silent" arguments)) (setq output nil))) (if silent-query (progn (setq arguments (cons "--silent-query" arguments)))) (if range-filter (progn (setq arguments (cons ... arguments)))) (if (or timeout rtags-timeout) (progn (setq arguments (cons ... arguments)))) (if (and rtags-show-containing-function (not (member "-N" arguments))) (progn (setq arguments (cons "-o" arguments)))) (cond ((stringp path) (setq arguments (cons ... arguments))) (path nil) (default-directory (setq arguments (cons ... arguments))) (t nil)) (if (> (length rtags-socket-file) 0) (progn (setq arguments (cons ... arguments)))) (if rtags-rc-log-enabled (progn (rtags-log (concat rc " " ...)))) (let ((result (cond ... ... ... ... ...))) (if (processp result) (progn (set-process-query-on-exit-flag result nil) (if ... ...) (if ... ...)) (goto-char (point-min)) (save-excursion (cond ... ... ... ... ...))) (or async (and (> ... ...) (= result rtags-exit-code-success)))))))) (let ((path (car (cdr (or (memq (quote :path) arguments) (list nil (rtags-buffer-file-name)))))) (unsaved (car (cdr (memq (quote :unsaved) arguments)))) (async (car (cdr (memq (quote :async) arguments)))) (path-filter (car (cdr (memq (quote :path-filter) arguments)))) (path-filter-regex (car (cdr (memq (quote :path-filter-regex) arguments)))) (range-filter (car (cdr (memq (quote :range-filter) arguments)))) (output (car (cdr (or (memq (quote :output) arguments) (list nil (list t nil)))))) (range-min (car (cdr (memq (quote :range-min) arguments)))) (range-max (car (cdr (memq (quote :range-max) arguments)))) (noerror (car (cdr (memq (quote :noerror) arguments)))) (timeout (car (cdr (memq (quote :timeout) arguments)))) (silent (car (cdr (memq (quote :silent) arguments)))) (silent-query (car (cdr (memq (quote :silent-query) arguments))))) (progn (save-excursion (let ((rc (rtags-executable-find "rc"))) (if (not rc) (if noerror nil (rtags--error (quote rtags-cannot-find-rc))) (setq output (rtags--convert-output-buffer output)) (setq rtags-last-request-not-connected nil) (setq rtags-last-request-not-indexed nil) (setq arguments (rtags-remove-keyword-params arguments)) (setq arguments (rtags-remove (quote ...) arguments)) (setq arguments (mapcar (quote rtags-untrampify) arguments)) (setq arguments (cons (format "--verify-version=%d" rtags-protocol-version) arguments)) (setq arguments (cons "-z" arguments)) (setq path (rtags-untrampify path)) (if path-filter (progn (setq arguments ...) (if path-filter-regex ...))) (if (and unsaved (rtags-buffer-file-name unsaved)) (progn (setq arguments ...))) (if rtags-rc-config-path (progn (setq arguments ...))) (if rtags-completions-enabled (progn (setq arguments ...))) (if silent (progn (setq arguments ...) (setq output nil))) (if silent-query (progn (setq arguments ...))) (if range-filter (progn (setq arguments ...))) (if (or timeout rtags-timeout) (progn (setq arguments ...))) (if (and rtags-show-containing-function (not ...)) (progn (setq arguments ...))) (cond ((stringp path) (setq arguments ...)) (path nil) (default-directory (setq arguments ...)) (t nil)) (if (> (length rtags-socket-file) 0) (progn (setq arguments ...))) (if rtags-rc-log-enabled (progn (rtags-log ...))) (let ((result ...)) (if (processp result) (progn ... ... ...) (goto-char ...) (save-excursion ...)) (or async (and ... ...)))))))) rtags-call-rc(:path "/localdisk/sree/rtags/src/rdm.cpp" :noerror t :silent-query nil "-U" "/localdisk/sree/rtags/src/rdm.cpp:73:34:" "--elisp" "-K" nil nil nil nil) (and location (rtags-call-rc :path path :noerror t :silent-query silent "-U" location "--elisp" (if relative-filenames nil "-K") (if parents (progn "--symbol-info-include-parents")) (if references (progn "--symbol-info-include-references")) (if targets (progn "--symbol-info-include-targets")) (if base-classes (progn "--symbol-info-include-base-classes"))) (goto-char (point-min)) (looking-at "(") (eval (read (current-buffer)))) (progn (and location (rtags-call-rc :path path :noerror t :silent-query silent "-U" location "--elisp" (if relative-filenames nil "-K") (if parents (progn "--symbol-info-include-parents")) (if references (progn "--symbol-info-include-references")) (if targets (progn "--symbol-info-include-targets")) (if base-classes (progn "--symbol-info-include-base-classes"))) (goto-char (point-min)) (looking-at "(") (eval (read (current-buffer))))) (unwind-protect (progn (and location (rtags-call-rc :path path :noerror t :silent-query silent "-U" location "--elisp" (if relative-filenames nil "-K") (if parents (progn "--symbol-info-include-parents")) (if references (progn "--symbol-info-include-references")) (if targets (progn "--symbol-info-include-targets")) (if base-classes (progn "--symbol-info-include-base-classes"))) (goto-char (point-min)) (looking-at "(") (eval (read (current-buffer))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (and location (rtags-call-rc :path path :noerror t :silent-query silent "-U" location "--elisp" (if relative-filenames nil "-K") (if parents (progn "--symbol-info-include-parents")) (if references (progn "--symbol-info-include-references")) (if targets (progn "--symbol-info-include-targets")) (if base-classes (progn "--symbol-info-include-base-classes"))) (goto-char (point-min)) (looking-at "(") (eval (read (current-buffer))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (and location (rtags-call-rc :path path :noerror t :silent-query silent "-U" location "--elisp" (if relative-filenames nil "-K") (if parents (progn "--symbol-info-include-parents")) (if references (progn "--symbol-info-include-references")) (if targets (progn "--symbol-info-include-targets")) (if base-classes (progn "--symbol-info-include-base-classes"))) (goto-char (point-min)) (looking-at "(") (eval (read (current-buffer))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((path (rtags-buffer-file-name)) (object (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (and location ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (or (and (not piece) object) (cdr (assoc piece object)))) (progn (let ((path (rtags-buffer-file-name)) (object (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ...) (and ... ...)))))) (or (and (not piece) object) (cdr (assoc piece object))))) (if location (progn (let ((path (rtags-buffer-file-name)) (object (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (or (and (not piece) object) (cdr (assoc piece object)))))) (progn (if location nil (setq location (rtags-current-location))) (if location (progn (let ((path (rtags-buffer-file-name)) (object (let (...) (save-current-buffer ... ...)))) (or (and (not piece) object) (cdr (assoc piece object))))))) (let ((parents (car (cdr (memq (quote :parents) foo)))) (references (car (cdr (memq (quote :references) foo)))) (targets (car (cdr (memq (quote :targets) foo)))) (base-classes (car (cdr (memq (quote :base-classes) foo)))) (piece (car (cdr (memq (quote :piece) foo)))) (relative-filenames (car (cdr (memq (quote :relative-filenames) foo)))) (location (car (cdr (memq (quote :location) foo)))) (silent (car (cdr (memq (quote :silent) foo))))) (let ((--cl-keys-- foo)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:parents :references :targets :base-classes :piece :relative-filenames :location :silent :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... foo))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:parents :references :targets :base-classes :piece :relative-filenames :location :silent)" (car --cl-keys--)))))) (progn (if location nil (setq location (rtags-current-location))) (if location (progn (let ((path (rtags-buffer-file-name)) (object (let ... ...))) (or (and (not piece) object) (cdr (assoc piece object)))))))) rtags-symbol-info-internal(:location nil) (assoc (quote symbolName) (rtags-symbol-info-internal :location location)) (cdr (assoc (quote symbolName) (rtags-symbol-info-internal :location location))) (let ((symbolname (cdr (assoc (quote symbolName) (rtags-symbol-info-internal :location location)))) (visual (and symbolname (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ...) (and ... ...)))))) (token (rtags-current-token))) (or (and visual (string= visual token) symbolname) token)) rtags-current-symbol-name() (and (not no-symbol-name) (rtags-current-symbol-name)) (or (and rtags-use-mark-as-current-symbol mark-active (buffer-substring-no-properties (point) (mark))) (and (not no-symbol-name) (rtags-current-symbol-name)) (thing-at-point (quote symbol))) rtags-current-symbol() (or (rtags-current-symbol) (rtags-current-token)) (let ((arg (rtags-current-location)) (tagname (or (rtags-current-symbol) (rtags-current-token))) (fn (rtags-buffer-file-name))) (rtags-reparse-file-if-needed) (let ((results (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...))))) (buffer (get-buffer rtags-buffer-name))) (if (and buffer (eq (buffer-local-value (quote rtags-results-buffer-type) buffer) (quote find-symbol-at-point))) (progn (rtags-delete-rtags-windows) (kill-buffer buffer))) (cond ((= (cdr results) 0) nil) ((= (cdr results) 1) (let ((temp-buffer (generate-new-buffer " temp"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...))))) (t (rtags-delete-rtags-windows) (save-current-buffer (set-buffer (rtags-get-buffer)) (insert (car results)) (goto-char (point-min)) (rtags-handle-results-buffer tagname nil nil fn otherwindow (quote find-symbol-at-point))))))) (progn (rtags-location-stack-push) (let ((arg (rtags-current-location)) (tagname (or (rtags-current-symbol) (rtags-current-token))) (fn (rtags-buffer-file-name))) (rtags-reparse-file-if-needed) (let ((results (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (buffer (get-buffer rtags-buffer-name))) (if (and buffer (eq (buffer-local-value (quote rtags-results-buffer-type) buffer) (quote find-symbol-at-point))) (progn (rtags-delete-rtags-windows) (kill-buffer buffer))) (cond ((= (cdr results) 0) nil) ((= (cdr results) 1) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (t (rtags-delete-rtags-windows) (save-current-buffer (set-buffer (rtags-get-buffer)) (insert (car results)) (goto-char (point-min)) (rtags-handle-results-buffer tagname nil nil fn otherwindow (quote find-symbol-at-point)))))))) (if (or (not (with-no-warnings (called-interactively-p (quote interactive)))) (rtags-sandbox-id-matches)) (progn (rtags-location-stack-push) (let ((arg (rtags-current-location)) (tagname (or (rtags-current-symbol) (rtags-current-token))) (fn (rtags-buffer-file-name))) (rtags-reparse-file-if-needed) (let ((results (let (...) (save-current-buffer ... ...))) (buffer (get-buffer rtags-buffer-name))) (if (and buffer (eq (buffer-local-value ... buffer) (quote find-symbol-at-point))) (progn (rtags-delete-rtags-windows) (kill-buffer buffer))) (cond ((= (cdr results) 0) nil) ((= (cdr results) 1) (let (...) (save-current-buffer ... ...))) (t (rtags-delete-rtags-windows) (save-current-buffer (set-buffer ...) (insert ...) (goto-char ...) (rtags-handle-results-buffer tagname nil nil fn otherwindow ...)))))))) (let ((otherwindow (and prefix (listp prefix))) (pathfilter (and (numberp prefix) (rtags-buffer-file-name)))) (if (or (not (with-no-warnings (called-interactively-p (quote interactive)))) (rtags-sandbox-id-matches)) (progn (rtags-location-stack-push) (let ((arg (rtags-current-location)) (tagname (or (rtags-current-symbol) (rtags-current-token))) (fn (rtags-buffer-file-name))) (rtags-reparse-file-if-needed) (let ((results (let ... ...)) (buffer (get-buffer rtags-buffer-name))) (if (and buffer (eq ... ...)) (progn (rtags-delete-rtags-windows) (kill-buffer buffer))) (cond ((= ... 0) nil) ((= ... 1) (let ... ...)) (t (rtags-delete-rtags-windows) (save-current-buffer ... ... ... ...)))))))) rtags-find-symbol-at-point(nil) call-interactively(rtags-find-symbol-at-point record nil) command-execute(rtags-find-symbol-at-point record)
execute-extended-command(nil "rtags-find-symbol-at-point") call-interactively(execute-extended-command nil nil)
No multiple rtags.elc and only one Emacs is installed in the system.
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p "Aborted") rtags-call-rc(:path "/home/xxx/xxx/xxx/xxx/xxx/xxx/xxx.cpp" :noerror t :silent-query nil "-U" "/home/xxx/xxx/xxx/xxx/xxx/xxx/xxx.cpp:9:1:" "--elisp" "-K" nil nil nil nil) rtags-symbol-info-internal(:location nil) rtags-current-symbol-name() rtags-current-symbol() rtags-find-symbol-at-point(nil) funcall-interactively(rtags-find-symbol-at-point nil) call-interactively(rtags-find-symbol-at-point record nil) command-execute(rtags-find-symbol-at-point record)
ivy-call()
\323\"A@\306\324\"A@\306\325\"A@\211\203\222 \211@\326>\203z \211AA\262\202g \327>A@\203\211 \330\262\202g \331\332@\"\210\202g \210\333\334\335\336\"\335 \"\335\"#!\211\203\322 \337!\203\274 \340\341\342BBBB\202\320 \204\311 \340\343BB\202\320 \333\334\"!\262\210\335\n\"\211\203\n\330\211\211\203\211@\211\344\232\203\361 \211B\202\377 \211A\204\377 \211@@ DBA\266\202\202\336 \210\202\f\345\210\346 \205\f\335 \206\"\337!\205\"\"\347 ?\205:@\206:A\236\2069\336A\236A\203S\350B\"\211\203L\211A\202NC\262\202UC@D\351\352\353 \354 p\330\242E\330&&\355\f!\210\356\357\360\361\351 !\362\"\363$\216\364\330C\211\356\357\365\361\351\"\366\"\367$\240\210\356\357\370\361\351!\371\"\367$\216\372\373\242\"\210\206\313\374FGC\375 \203\337\330\202\352H\204\350\376\202\352HHI\203 JG\340U\203 \f\357HK>\204 \377\201Q \201R \fD\"\210\f\211\201S J@I\266\201T L\202H\201U \f\357HK>\2049\377\201Q \201R \fD\"\210\f\363H\201V M\"\330%\210L\201T =\203\223N\203r\f\357HK>\204j\377\201Q \201R \fD\"\210\f\201S H\202tO\211\201W \232\204\222\201X \201Y P#\201Z JA\"BL\210\210\f\357HK>\204\247\377\201Q \201R \fD\"\210\f\201S H,\262)\266\202)\201[ \210\f\357HK>\204\314\377\201Q \201R \fD\"\210\f\201S HG\357V\203\372\201\ \357\340\201] \f\357HK>\204\363\377\201Q \201R \fD\"\210\f\201S H$\210\266\204\207" [ivy--actions-list this-command ivy--sources-list ivy--extra-candidates ivy-last ivy--display-transformers-list plist-member :predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :unwind :re-builder :matcher :dynamic-collection :caller (:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :unwind :re-builder :matcher :dynamic-collection :caller :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :unwind :re-builder :matcher :dynamic-collection :caller)" delete-dups append plist-get t functionp 1 "o" ("default") ("o" identity "default") (original-source) ((original-source)) active-minibuffer-window window-minibuffer-p assoc vector cl-struct-ivy-state selected-frame selected-window ivy--reset-state make-byte-code 0 "\304\305\306\"\210\307\310!\311!\203 \211 \210\210\300 \312H\n>\204\"
Please mark appropriate
Problem description
Describe briefly the problem. I'm developing some c++ projects with emacs on CentOS 7.3. But I have faced some problems. If I pressed "C-c r ." to use "rtags-find-symbol-at-point ()" Follow message was showing. Wrong type argument: number-or-market-p, "Aborted" I have indexed the project with makefile
Expected behavior
Just go to the definition of the function.....
Actual behavior
Describe what actually happened.
Environment
Emacs Version : 25.3
Your operating system: CentOS 7.3
LLVM/Clang version: 3.4.2 ( Installed llvm family with yum commands )
Feature request
Enough~ uukj