expr))))))))
\f
-;; 'gud-lldb-history' and 'gud-gud-lldb-command-name' are required
+;; 'gud-lldb-history' and 'gud-lldb-command-name' are required
;; because 'gud-symbol' uses their values if they are present. Their
;; names are deduced from the minor-mode name.
(defvar gud-lldb-history nil)
-(defcustom gud-gud-lldb-command-name "lldb"
+(defcustom gud-lldb-command-name "lldb"
"Default command to invoke LLDB in order to debug a program with it."
:type 'string
:version "30.1")
This command runs functions from `lldb-mode-hook'."
(interactive (list (gud-query-cmdline 'lldb)))
-
- (when (and gud-comint-buffer
- (buffer-name gud-comint-buffer)
- (get-buffer-process gud-comint-buffer)
- (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gud-lldb)))
- (gdb-restore-windows)
- ;; FIXME: Copied from gud-gdb, but what does that even say?
- (error "Multiple debugging requires restarting in text command mode"))
-
(gud-common-init command-line nil 'gud-lldb-marker-filter)
(setq-local gud-minor-mode 'lldb)