From: Davin Pearson <davin.pearson@gmail.com>
To: gnu.emacs.help@gnu.org
Subject: Please help me debug my Emacs instillation
Date: Thu, 29 Feb 2024 15:43:36 +1300 [thread overview]
Message-ID: <CAG9ihEvBMmepJBgxn_axk5PMjLu__6ZtHxMC4pjp8x+vuJei-w@mail.gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1109 bytes --]
Here is the file runmacs.bat that I use for loading emacs
date
cd LOCATION
./src/emacs -q --load ~/dmp-emacs--yes-init-file.el --eval "(setq
debug-on-error t)" --debug-init &
where LOCATION is the location of your emacs executable file. On my
computer it is: ~/Downloads/emacs-29.1/
Please copy the attached files dmp-emacs--yes-file.el and includer.el
to your HOME folder.
The following commands all give an error message like this:
byte-code: Recursive ‘require’ for feature ‘semantic’
Here is a list of the commands that generate the above-mentioned error:
M-%
M-/
M-.
C-h a
C-s
C-r
M-C-s
M-C-r
Why doesn't it show a backtrace since I have --debug-init on the command
line?
NOTE: I have removed the following sentence from my Website
http://davin.50webs.com: "In addition to this, I believe that I am New
Zealand's foremost exponent of Stallman's GNU Emacs text editor." in
the hope that it will attract more people in the newsgroup
gnu.emacs.help to reply to this message.
--
Sincerely and kindest regards,
*Davin Pearson* http://davin.50webs.com
[-- Attachment #2: dmp-emacs--yes-init-file.el --]
[-- Type: text/x-emacs-lisp, Size: 12147 bytes --]
(message "&tip-top:998:")
(message "&tip-top:999:")
(progn
;;(add-hook 'after-init-hook 'after-init-hook--dmp-set-face-font 70)
(defun dmp-set-face-font ()
(set-face-font 'default "Monospace Serif 20")
)
(dmp-set-face-font)
)
(message "&tip-top:1000:")
(if (not (fboundp 'string=))
(defun string= (str0 str1)
(dmp-assert (stringp str0))
(dmp-assert (stringp str1))
(equal str0 str1)))
(message "&tip-top:1001")
(progn
(message "&tip-top:1002:")
(defalias 'ANDY 'identity)
(defalias 'dtp 'describe-text-properties)
(defalias 'rtf 'rich-text-format)
(defalias 'tde 'toggle-read-only)
(setq transient-mark-mode nil)
(setq kill-whole-line t)
(progn
(global-set-key "\C-x\C-s" 'save-some-buffers)
(global-set-key "\C-xs" 'save-some-buffers))
(progn
(defun dmp-find-file (file)
(interactive "Fdmp-find-file> ")
;; Code omitted for brevity
(find-file file))
(progn
(global-set-key "\C-x\C-d" 'dmp-find-file)
(global-set-key "\C-x\C-f" 'dmp-find-file)
(global-set-key "\C-xd" 'dmp-find-file)
(global-set-key "\C-xf" 'dmp-find-file)
(global-set-key "\C-f" 'dmp-find-file)
(global-set-key "\C-d" 'dmp-find-file)
(global-set-key "\C-b" 'bury-buffer)
)
(progn
(global-set-key "\C-b" 'bury-buffer)
(global-set-key [f12] 'eval-last-sexp)
(global-set-key "\C-e" 'call-last-kbd-macro)
(global-set-key "\C-x\C-e" 'eval-last-sexp)
)
(progn
(global-set-key [(control left)] 'backward-sexp)
(global-set-key [(shift left)] 'backward-sexp)
(global-set-key [(meta left)] 'backward-sexp)
(global-set-key [(control right)] 'forward-sexp)
(global-set-key [(shift right)] 'forward-sexp)
(global-set-key [(meta right)] 'forward-sexp)
)
(message "&tip-top:1003:")
)
(progn
(global-set-key [f7] 'read-only-mode)
(global-set-key [f8] 'undo)
(global-set-key [(f12)] 'eval-last-sexp)
(message "&tip-top:1004:")
)
(progn
(global-set-key "\C-x\C-g" 'goto-line)
(global-set-key "\C-xg" 'goto-line)
(global-set-key "\C-o" 'split-line)
(global-set-key "\M-/" 'dabbrev-expand)
(global-set-key [(control tab)] 'other-window)
(message "hello dmp-emacs--yes-init-file.el!")
)
)
(message "&tip-top:1005:")
(progn
(setq *dmp-prefs--davins-keybindings-online-p* t)
(setq *dmp-emacs-dialect--gnu-emacs-p* t)
)
(defmacro dmp-quote (&rest ignored)
t)
(message "&tip-top:1006:")
(condition-case err
(progn
(progn
(make-face 'default)
(make-face-unbold 'default)
(set-face-background 'default "#f0f0f0"))
(progn
(make-face 'font-lock-comment-face)
(set-face-background 'font-lock-comment-face "#f0f0f0")
(set-face-foreground 'font-lock-comment-face "#080")
(make-face-italic 'font-lock-comment-face)
)
(progn
(make-face 'font-lock-function-name-face)
(set-face-background 'font-lock-function-name-face "#ffff00")
(set-face-foreground 'font-lock-function-name-face "#000")
(make-face-bold 'font-lock-function-name-face))
(progn
(make-face 'font-lock-string-face)
(set-face-background 'font-lock-string-face "#ddddff")
(set-face-foreground 'font-lock-string-face "#000")
)
(progn
(make-face 'font-lock-keyword-face)
(set-face-background 'font-lock-keyword-face "#f0f0f0")
(set-face-foreground 'font-lock-keyword-face "#000")
(make-face-bold 'font-lock-keyword-face)
)
(progn
(make-face 'dired-directory)
(set-face-background 'dired-directory "#f0f0f0")
(set-face-foreground 'dired-directory "#0000ff")
)
)
(error
(message "dmp-error:font-is-missing err=%s" (prin1-to-string err))
))
(message "&tip-top:1007:")
(progn
(setq *dmp-root-user-p* (if (string-match "root" (getenv "HOME")) t))
;;(setq *dmp-os-type--mswindows-p* (if (memq 'mswindows os-type)
(defvar bg-colour-lighter "#ffffff")
(defvar auto-save-timeout 5)
(defvar backup-inhibited t)
(defvar undo-limit (* 1000 1000))
(setq-default tab-width 8)
(setq delete-old-versions t)
(setq-default cursor-type 'box)
(setq yes-or-no-p-history '("yes" "no"))
(defvar ***dmp-sound-on-p*** t)
(setq ***dmp-quit-quick*** nil)
(setq auto-save-default *dmp-emacs-dialect--gnu-emacs-p*)
(setq load-prefer-newer t) ;; prefer newer of *.elc *.el
;;(setq ls-lisp-dirs-first t) ;; NOTE: like MS Windows Explorer
(setq dired-use-ls-dired t)
(setq kill-whole-line t)
(setq case-fold-search t)
(setq save-abbrevs 'silently) ;; supressing annoying messages
(setq track-eol t)
(setq-default kill-whole-line t)
(setq-default file-name-history (cons "~/" file-name-history))
;;(setq eol-mnemonic-unix "(unix)")
(setq eol-mnemonic-dos "(dos)")
(setq compile-command "make ")
(setq message-log-max 10000)
(setq delete-by-moving-to-trash t)
(setq enable-local-eval t)
(setq-default c-basic-offset 3)
(setq-default
visible-bell nil
save-abbrevs 'silently
message-log-max (* 10 1000)
transient-mark-mode nil
indent-tabs-mode nil ;; never put tabs in dmp- code
parse-sexp-ignore-comments t
comment-column 40
completion-ignore-case t ;; good for win95 mode.
case-fold-search nil
c-basic-offset 3
truncate-lines nil
fill-column 70)
(setq
gc-cons-threshold 2000000
same-window-buffer-names nil
compilation-window-height 15
line-number-mode t
search-highlight t
compilation-window-height 10
compilation-ask-about-save nil
next-line-add-newlines nil ;; doesn't add newlines at end
kill-whole-line t ;; makes c-k more convenient.
next-screen-context-lines 1 ;; overlap with pgup/pgdn
compile-command "make "
default-major-mode 'fundamental-mode
three-step-help t
apropos-do-all t ;; more extensive online help
enable-recursive-minibuffers nil ;; advanced customisation feature...
column-number-mode t
eval-expression-debug-on-error nil
debug-on-error nil
dmp-splash-screen--activated t
c2java-version "1.21"))
(message "&tip-top:1008:")
(defun dmp-f1 ()
(interactive)
(info)
(delete-other-windows))
(message "&tip-top:1009:")
(when *dmp-prefs--davins-keybindings-online-p*
(global-set-key [f1] 'dmp-f1)
)
(message "&tip-top:1010:")
(defun dmp-meta-f1 ()
(interactive)
(kill-ring-save (point-min) (point-max))
(transient-mark-mode 1)
(dmp-message "copied buffer to clipboard"))
(message "&tip-top:1011:")
(when *dmp-prefs--davins-keybindings-online-p*
(global-set-key [(meta f1)] 'dmp-meta-f1)
(global-set-key [(shift f1)] 'dmp-meta-f1)
(global-set-key [(control f1)] 'dmp-meta-f1)
)
(message "&tip-top:1012:")
(defun e ()
(interactive)
(condition-case err
(progn
;;(message "Executing M-x e")
(eval-buffer)
(emacs-lisp-mode)
(if (fboundp 'dmp-safe--play-sound--doit)
(dmp-safe--play-sound--doit "music-sample--Miles-Davis--Doo-Bop--Mystery.wav")))
(error
(if (fboundp 'dmp-safe--play-sound--doit)
(dmp-safe--play-sound--doit "emacs-sample--John-Coltrane--Countdown2.wav")))))
(setq *dmp-message-indent* 0)
;;(dmp-message "abc")
;;(dmp-message "begun: foo")
(defvar ***dmp-messages-welcome-goodbye-on-p*** t)
(defvar ***dmp-messages-on-p*** t)
(message "&tip-top:1013:")
(defun dmp-message (format-string &rest args)
(progn
(progn
(if (< *dmp-message-indent* 0)
(setq *dmp-indent* 0))
(setq *dmp-message-str* (make-string *dmp-message-indent* ? ))
(if (or ***dmp-messages-welcome-goodbye-on-p***
***dmp-messages-on-p***)
(setq return-value (apply 'message (concat *dmp-message-str*
;;"DEBUG: "
format-string)
args))
(setq return-value nil))
)
return-value
)
) ;; NOTE: Eval the line above for an immediate effect!
(message "&tip-top:1014:")
(defun dmp-message-purge ()
(setq *dmp-message-indent* 0)
(setq *dmp-message-str* ""))
(dmp-message-purge)
(message "&tip-top:1015:")
(defun dmp-message-begun ()
(progn
(cl-incf *dmp-message-indent*)
(setq *dmp-message-str* (make-string *dmp-message-indent* ? )))
)
(dmp-message "&safe-require:1016:")
;;(dmp-message-ended)
(defun dmp-message-ended ()
(progn
(cl-decf *dmp-message-indent*)
(if (< *dmp-message-indent* 0)
(setq *dmp-message-indent* 0))
(setq *dmp-message-str* (make-string *dmp-message-indent* ?\ )))
)
(message "&tip-top:1017:")
(defmacro dmp-assert (test)
;;(dmp-assert nil)
`(condition-case porkpie
(progn
(cl-assert , test)
t)
(error
(error "*** Boloney Assertion failed test=%s porkpie=%s" , test porkpie))
))
(message "&tip-top:1018:")
(defalias 'assert 'dmp-assert)
(defalias 'nilp 'not)
(message "&tip-top:1019:")
(defun dmp-safe--require (feature-505 &optional ANDY)
(let ((***dmp-messages-welcome-goodbye-on-p*** nil)
(***dmp-messages-on-p*** t))
(dmp-message "&tip-top:1020:")
(dmp-message-begun)
;;(dmp-assert (or (eq t ANDY) (nilp ANDY) (stringp ANDY) (numberp ANDY) (symbolp ANDY)))
(unwind-protect
(condition-case err
(progn
;;(dmp-message "&tip-top:14020:")
(if (not (symbolp feature-505))
(dmp-message "dmp-error:symbol-must-eval-to-be-a-symbol feature-505=(%s)" feature-505))
(if feature-505
(require feature-505))
t)
(error
;;(setq debug-on-error t)
(dmp-message (concat "*** dmp-error:dmp-safe--require failed "
"feature-505=%s err=%s ANDY=%s\n")
feature-505
err
ANDY)
;;(debug "Amber Dempsey")
))
(dmp-message (format "dmp-safe--require feature-505=%s ANDY=%s" feature-505 ANDY))
(dmp-message-ended)
))
)
;; NOTE: Eval the line above for to define a defun dmp-safe--require
(progn
(setq default-directory "~/")
(setq debug-on-error t)
(message "&tip-top:1018:")
)
(defun dmp-print-head-of-list (list)
;;(debug)
(message "*** First 6 elements-of-list: (%s %s %s %s %s %s)"
(nth 0 list)
(nth 1 list)
(nth 2 list)
(nth 3 list)
(nth 4 list)
(nth 5 list)
))
(cl-block nil
(let ((default-directory "~/"))
(message "&tip-top:1021:")
;;(cl-return)
(setq load-path nil)
(setq load-path (directory-files-recursively "~/Downloads/emacs-29.1/lisp/" "" t))
(setq load-path (cl-delete-if-not 'file-directory-p load-path))
;;(setq load-path (cons "~/Documents/emacs-29.1/lisp" load-path))
;;(setq load-path (mapcar 'expand-file-name load-path))
(setq load-path (mapcar 'directory-file-name load-path))
(setq load-path (cl-delete-duplicates load-path :test 'string=))
(message "&tip-top:1022:")
)
)
(message "&tip-top:1023:")
(dmp-quote
(require 'cl-seq)
;;(require 'help-fns)
;;(require 'cus-load)
(require 'faces)
(require 'window)
(require 'format)
(require 'tooltip)
(require 'mouse)
(require 'isearch)
)
(progn
(setq load-path (cons "~/" load-path))
(require 'includer))
(message "&tip-top:1024:")
(message "Ambilical-Cord: load-path=%s" load-path)
(message "&tip-top:1025:")
[-- Attachment #3: includer.el --]
[-- Type: text/x-emacs-lisp, Size: 93 bytes --]
(message "begun includer.el")
(provide 'includer)
(message "ended includer.el")
next reply other threads:[~2024-02-29 2:43 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-02-29 2:43 Davin Pearson [this message]
2024-03-01 18:48 ` Please help me debug my Emacs instillation tpeplt
2024-03-02 1:53 ` Michael Heerdegen via Users list for the GNU Emacs text editor
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAG9ihEvBMmepJBgxn_axk5PMjLu__6ZtHxMC4pjp8x+vuJei-w@mail.gmail.com \
--to=davin.pearson@gmail.com \
--cc=gnu.emacs.help@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).