[emacs] [bashrc] Multiple changes

- use custom mastodon.el
- turn off flyspell in org-jira mode because it slows down
  significantly

1 files changed, 55 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el
index ffb0d26..396d919 100644
--- a/emacs/.emacs.d/lisp/my/my-prog.el
+++ b/emacs/.emacs.d/lisp/my/my-prog.el
@@ -367,6 +367,61 @@ left and the source buffer on the right.
 (defun my-gud-comint-set-prompt-regexp ()
   (setq comint-prompt-regexp "\\((rr)|(gdb)\\) "))
 
+
+;;; used to override `gdb-frame-handler': do not re-display frame on
+;;; completion.
+(defun my-gdb-frame-handler ()
+  "Set `gdb-selected-frame' and `gdb-selected-file' to show
+overlay arrow in source buffer."
+  (let ((frame (gdb-mi--field (gdb-mi--partial-output) 'frame)))
+    (when frame
+      (setq gdb-selected-frame (gdb-mi--field frame 'func))
+      (setq gdb-selected-file
+            (when-let ((full (gdb-mi--field frame 'fullname)))
+              (file-local-name full)))
+      (setq gdb-frame-number (gdb-mi--field frame 'level))
+      (setq gdb-frame-address (gdb-mi--field frame 'addr))
+      (let ((line (gdb-mi--field frame 'line)))
+        (setq gdb-selected-line (and line (string-to-number line)))
+        (when (and gdb-selected-file gdb-selected-line
+                   (not (and (boundp 'gud-gdb-fetch-lines-break)
+                             gud-gdb-fetch-lines-break)))
+          (setq gud-last-frame (cons gdb-selected-file gdb-selected-line))
+          (gud-display-frame)))
+      (if gud-overlay-arrow-position
+          (let ((buffer (marker-buffer gud-overlay-arrow-position))
+                (position (marker-position gud-overlay-arrow-position)))
+            (when buffer
+              (with-current-buffer buffer
+                (setq fringe-indicator-alist
+                      (if (string-equal gdb-frame-number "0")
+                          nil
+                        '((overlay-arrow . hollow-right-triangle))))
+                (setq gud-overlay-arrow-position (make-marker))
+                (set-marker gud-overlay-arrow-position position))))))))
+
+
+;;; Can't override gud-gdbmi-completions - would get:
+;;; error in process filter: gud-marker-filter: Symbol’s value as variable is void: gud-gdb-fetch-lines-string
+;;; error in process filter: Symbol’s value as variable is void: gud-gdb-fetch-lines-string
+
+;; (defun gud-gdbmi-completions (context command)
+;;   "Completion table for GDB/MI commands.
+;; COMMAND is the prefix for which we seek completion.
+;; CONTEXT is the text before COMMAND on the line."
+;;   (let ((gud-gdb-fetch-lines-in-progress t)
+;; 	      (gud-gdb-fetch-lines-string nil)
+;; 	      (gud-gdb-fetch-lines-break (length context))
+;; 	      (gud-gdb-fetched-lines nil)
+;; 	      ;; This filter dumps output lines to `gud-gdb-fetched-lines'.
+;; 	      (gud-marker-filter #'gud-gdbmi-fetch-lines-filter))
+;;     (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
+;;       (gdb-input (concat "complete " context command)
+;; 		             (lambda () (setq gud-gdb-fetch-lines-in-progress nil)))
+;;       (while gud-gdb-fetch-lines-in-progress
+;; 	      (accept-process-output (get-buffer-process gud-comint-buffer) 1)))
+;;     (gud-gdb-completions-1 gud-gdb-fetched-lines)))
+
 ;;; which-func
 (defun my-copy-which-func ()
   (interactive)