From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.bugs Subject: bug#58314: 29.0.50; C-h k with native compilation not conclusive Date: Wed, 05 Oct 2022 22:26:20 +0300 Message-ID: <86czb65axv.fsf@protected.rcdrun.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="16416"; mail-complaints-to="usenet@ciao.gmane.io" To: 58314@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Wed Oct 05 21:30:38 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ogA6I-000407-EQ for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 05 Oct 2022 21:30:38 +0200 Original-Received: from localhost ([::1]:56160 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogA6H-0002zC-1e for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 05 Oct 2022 15:30:37 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:57864) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogA5j-0002w9-Pw for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2022 15:30:04 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:59047) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ogA5i-0006sJ-HP for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2022 15:30:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ogA5i-0001Iq-7p for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2022 15:30:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Jean Louis Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 05 Oct 2022 19:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 58314 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.16649981944970 (code B ref -1); Wed, 05 Oct 2022 19:30:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 5 Oct 2022 19:29:54 +0000 Original-Received: from localhost ([127.0.0.1]:58125 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogA5Z-0001I5-C0 for submit@debbugs.gnu.org; Wed, 05 Oct 2022 15:29:54 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:50920) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogA5W-0001Hw-HY for submit@debbugs.gnu.org; Wed, 05 Oct 2022 15:29:51 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:53556) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogA5V-0002r6-72 for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2022 15:29:49 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:50675) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogA5R-0006q3-7Q for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2022 15:29:48 -0400 Original-Received: from localhost ([::ffff:154.227.156.251]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000BA494.00000000633DDB27.00007BEF; Wed, 05 Oct 2022 12:29:43 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=admin@protected.rcdrun.com; helo=stw1.rcdrun.com X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:244566 Archived-At: I remember with byte compiling I was never lead to go into byte compiled file when I was inspecting commands with C-h k With native compilation, I do: C-h k and I get this: v n runs the command cf-people-view-notes (found in rcd-db-people-mode-map), which is an interactive native-compiled Lisp function in =E2=80=98../eln-cache/29.0.50-44cd31c8/rcd-cf-a9476332-a313d4ff.eln=E2=80= =99. It is bound to v n. (cf-people-view-notes &optional ID) View notes for people ID. However, what I really expect is that instead of byte compiled file, that I am shown the source file, and that I become able to click on the link to come to the function. Instead if I click on the link: =E2=80=98../eln-cache/29.0.50-44cd31c8/rcd-cf-a9476332-a313d4ff.eln=E2=80= =99. I can just see error: Debugger entered--Lisp error: (wrong-type-argument stringp nil) locate-file(nil ("/home/data1/protected/.emacs.d/elpa/hyperbole-8.0...." = "/home/data1/protected/.emacs.d/elpa/hyperbole-8.0...." "~/Programming/git/= emacs-libpq/" "~/Programming/git/emacs-libvterm" "/usr/locals/share/emacs/s= ite-lisp" "/home/data1/protected/Programming/git/ledger-mode" "/home/data1/= protected/Programming/emacs-lisp/my-sy..." "/home/data1/protected/Programmi= ng/emacs-lisp" "/home/data1/protected/.emacs.d/packages" "/home/data1/prote= cted/Programming/git/racket-mode" "/home/data1/protected/.emacs.d/Drew Adam= s" "/usr/share/festival" "/home/data1/protected/.emacs.d/elpa/2048-game-202= 0..." "/home/data1/protected/.emacs.d/elpa/a-20210929.151..." "/home/data1/= protected/.emacs.d/elpa/adoc-mode-2016..." "/home/data1/protected/.emacs.d/= elpa/afternoon-them..." "/home/data1/protected/.emacs.d/elpa/aggressive-com= ..." "/home/data1/protected/.emacs.d/elpa/aggressive-ind..." "/home/data1/p= rotected/.emacs.d/elpa/ahungry-theme-..." "/home/data1/protected/.emacs.d/e= lpa/aircon-theme-0..." "/home/data1/protected/.emacs.d/elpa/alect-themes-0.= .." "/home/data1/protected/.emacs.d/elpa/ample-theme-0...." "/home/data1/pr= otected/.emacs.d/elpa/anaphora-20180..." "/home/data1/protected/.emacs.d/el= pa/annotate-20210..." "/home/data1/protected/.emacs.d/elpa/annotation-202..= ." "/home/data1/protected/.emacs.d/elpa/apropospriate-..." "/home/data1/pro= tected/.emacs.d/elpa/ascii-art-to-u..." "/home/data1/protected/.emacs.d/elp= a/auctex-13.1.3/" "/home/data1/protected/.emacs.d/elpa/auctex-13.1.3" "/hom= e/data1/protected/.emacs.d/elpa/bbdb-20200928...." "/home/data1/protected/.= emacs.d/elpa/blimp-20180903..." "/home/data1/protected/.emacs.d/elpa/boxquo= te-2.2" "/home/data1/protected/.emacs.d/elpa/boxy-1.1.1" "/home/data1/prote= cted/.emacs.d/elpa/buc-2.0.0" "/home/data1/protected/.emacs.d/elpa/captain-= 1.0.3" "/home/data1/protected/.emacs.d/elpa/company-0.9.13" "/home/data1/pr= otected/.emacs.d/elpa/context-colori..." "/home/data1/protected/.emacs.d/el= pa/corfu-0.26" "/home/data1/protected/.emacs.d/elpa/cpupower-1.0.5" "/home/= data1/protected/.emacs.d/elpa/crdt-0.3.0" "/home/data1/protected/.emacs.d/e= lpa/csv-mode-1.21" "/home/data1/protected/.emacs.d/elpa/cyberpunk-them..." = "/home/data1/protected/.emacs.d/elpa/dash-functiona..." "/home/data1/protec= ted/.emacs.d/elpa/dictionary-202..." "/home/data1/protected/.emacs.d/elpa/c= onnection-201..." "/home/data1/protected/.emacs.d/elpa/dired-du-0.5.2" "/ho= me/data1/protected/.emacs.d/elpa/dired-launch-2..." "/home/data1/protected/= .emacs.d/elpa/dired-rsync-20..." "/home/data1/protected/.emacs.d/elpa/dmenu= -20190908..." "/home/data1/protected/.emacs.d/elpa/double-opt-in-..." ...) = (".so" ".so.gz" ".el" ".el.gz")) find-library-name("/home/data1/protected/.emacs.d/eln-cache/29.0.50-4...") find-function-search-for-symbol(cf-people-view-notes nil "/home/data1/pro= tected/.emacs.d/eln-cache/29.0.50-4...") help-function-def--button-function(cf-people-view-notes "/home/data1/prot= ected/.emacs.d/eln-cache/29.0.50-4..." nil) help-do-xref(nil help-function-def--button-function (cf-people-view-notes= "/home/data1/protected/.emacs.d/eln-cache/29.0.50-4...")) help-button-action(#) button-activate(# nil) push-button(137) funcall-interactively(push-button 137) command-execute(push-button) recursive-edit() (unwind-protect (recursive-edit) (if (get-buffer-window read-buffer) (pro= gn (setq new-value (buffer-substring (point-min) (point-max))) (kill-buffer= read-buffer)))) (save-excursion (switch-to-buffer read-buffer) (erase-buffer) (set-buffer= read-buffer) (if mode (if (fboundp mode) (funcall mode) (rcd-message "You = need `%s' mode" (symbol-name mode))) (text-mode)) (while minor-modes (let (= (minor-mode (car-safe (prog1 minor-modes (setq minor-modes ...))))) (if min= or-mode (if (fboundp (intern minor-mode)) (funcall (intern minor-mode)) (rc= d-message "You need `%s' minor mode" (symbol-name minor-mode)))))) (setq rc= d-current-table table) (setq rcd-current-column column) (setq rcd-current-t= able-id table-id) (local-set-key (kbd "") 'exit-recursive-edit) (if key= map (progn (use-local-map keymap))) (if input-method (progn (set-input-meth= od input-method))) (if rcd-word-processing (progn (rcd-word-processing))) (= setq header-line-format (format "%s =E2=9E=9C Finish editing with or C-M-c = or F8" title)) (if (stringp value) (insert value)) (rcd-highlight-list high= light-list) (goto-char (or point (point-min))) (rcd-speak "You may quit the= buffer with Meta Control C") (message "When you're done editing press C-M-= c or F8 to cont...") (setq eval-expression-debug-on-error nil) (unwind-prot= ect (recursive-edit) (if (get-buffer-window read-buffer) (progn (setq new-v= alue (buffer-substring (point-min) (point-max))) (kill-buffer read-buffer))= )) (setq eval-expression-debug-on-error t) (switch-to-buffer this-buffer) n= ew-value) (let ((this-buffer (buffer-name)) (title (or title "")) (value (or value = "")) (new-value value) (point (cond ((numberp place) place) ((listp place) = (cdr (assoc "place" place))))) (table (if (listp place) (progn (cdr (assoc = "table" place))))) (column (if (listp place) (progn (cdr (assoc "column" pl= ace))))) (table-id (if (listp place) (progn (cdr (assoc "table-id" place)))= )) (_ (message "EDIT %s" place)) (_ (message "%s" place)) (read-buffer (if = buffer-name (generate-new-buffer buffer-name) (generate-new-buffer "*edit-s= tring*")))) (save-excursion (switch-to-buffer read-buffer) (erase-buffer) (= set-buffer read-buffer) (if mode (if (fboundp mode) (funcall mode) (rcd-mes= sage "You need `%s' mode" (symbol-name mode))) (text-mode)) (while minor-mo= des (let ((minor-mode (car-safe (prog1 minor-modes ...)))) (if minor-mode (= if (fboundp (intern minor-mode)) (funcall (intern minor-mode)) (rcd-message= "You need `%s' minor mode" (symbol-name minor-mode)))))) (setq rcd-current= -table table) (setq rcd-current-column column) (setq rcd-current-table-id t= able-id) (local-set-key (kbd "") 'exit-recursive-edit) (if keymap (prog= n (use-local-map keymap))) (if input-method (progn (set-input-method input-= method))) (if rcd-word-processing (progn (rcd-word-processing))) (setq head= er-line-format (format "%s =E2=9E=9C Finish editing with or C-M-c or F8" ti= tle)) (if (stringp value) (insert value)) (rcd-highlight-list highlight-lis= t) (goto-char (or point (point-min))) (rcd-speak "You may quit the buffer w= ith Meta Control C") (message "When you're done editing press C-M-c or F8 t= o cont...") (setq eval-expression-debug-on-error nil) (unwind-protect (recu= rsive-edit) (if (get-buffer-window read-buffer) (progn (setq new-value (buf= fer-substring (point-min) (point-max))) (kill-buffer read-buffer)))) (setq = eval-expression-debug-on-error t) (switch-to-buffer this-buffer) new-value)) read-from-buffer(";;; rcd-cf.el --- CF or Central Files functions fo..." = "vc_value ID 37799" text-mode nil nil (("table" . "vc") ("column" . "vc_val= ue") ("table-id" . 37799) ("place" . 0))) rcd-db-edit-entry("vc" "vc_value" 37799) rcd-db-tabulated-edit-value() funcall-interactively(rcd-db-tabulated-edit-value) command-execute(rcd-db-tabulated-edit-value) recursive-edit() (unwind-protect (recursive-edit) (if (get-buffer-window read-buffer) (pro= gn (setq new-value (buffer-substring (point-min) (point-max))) (kill-buffer= read-buffer)))) (save-excursion (switch-to-buffer read-buffer) (erase-buffer) (set-buffer= read-buffer) (if mode (if (fboundp mode) (funcall mode) (rcd-message "You = need `%s' mode" (symbol-name mode))) (text-mode)) (while minor-modes (let (= (minor-mode (car-safe (prog1 minor-modes (setq minor-modes ...))))) (if min= or-mode (if (fboundp (intern minor-mode)) (funcall (intern minor-mode)) (rc= d-message "You need `%s' minor mode" (symbol-name minor-mode)))))) (setq rc= d-current-table table) (setq rcd-current-column column) (setq rcd-current-t= able-id table-id) (local-set-key (kbd "") 'exit-recursive-edit) (if key= map (progn (use-local-map keymap))) (if input-method (progn (set-input-meth= od input-method))) (if rcd-word-processing (progn (rcd-word-processing))) (= setq header-line-format (format "%s =E2=9E=9C Finish editing with or C-M-c = or F8" title)) (if (stringp value) (insert value)) (rcd-highlight-list high= light-list) (goto-char (or point (point-min))) (rcd-speak "You may quit the= buffer with Meta Control C") (message "When you're done editing press C-M-= c or F8 to cont...") (setq eval-expression-debug-on-error nil) (unwind-prot= ect (recursive-edit) (if (get-buffer-window read-buffer) (progn (setq new-v= alue (buffer-substring (point-min) (point-max))) (kill-buffer read-buffer))= )) (setq eval-expression-debug-on-error t) (switch-to-buffer this-buffer) n= ew-value) (let ((this-buffer (buffer-name)) (title (or title "")) (value (or value = "")) (new-value value) (point (cond ((numberp place) place) ((listp place) = (cdr (assoc "place" place))))) (table (if (listp place) (progn (cdr (assoc = "table" place))))) (column (if (listp place) (progn (cdr (assoc "column" pl= ace))))) (table-id (if (listp place) (progn (cdr (assoc "table-id" place)))= )) (_ (message "EDIT %s" place)) (_ (message "%s" place)) (read-buffer (if = buffer-name (generate-new-buffer buffer-name) (generate-new-buffer "*edit-s= tring*")))) (save-excursion (switch-to-buffer read-buffer) (erase-buffer) (= set-buffer read-buffer) (if mode (if (fboundp mode) (funcall mode) (rcd-mes= sage "You need `%s' mode" (symbol-name mode))) (text-mode)) (while minor-mo= des (let ((minor-mode (car-safe (prog1 minor-modes ...)))) (if minor-mode (= if (fboundp (intern minor-mode)) (funcall (intern minor-mode)) (rcd-message= "You need `%s' minor mode" (symbol-name minor-mode)))))) (setq rcd-current= -table table) (setq rcd-current-column column) (setq rcd-current-table-id t= able-id) (local-set-key (kbd "") 'exit-recursive-edit) (if keymap (prog= n (use-local-map keymap))) (if input-method (progn (set-input-method input-= method))) (if rcd-word-processing (progn (rcd-word-processing))) (setq head= er-line-format (format "%s =E2=9E=9C Finish editing with or C-M-c or F8" ti= tle)) (if (stringp value) (insert value)) (rcd-highlight-list highlight-lis= t) (goto-char (or point (point-min))) (rcd-speak "You may quit the buffer w= ith Meta Control C") (message "When you're done editing press C-M-c or F8 t= o cont...") (setq eval-expression-debug-on-error nil) (unwind-protect (recu= rsive-edit) (if (get-buffer-window read-buffer) (progn (setq new-value (buf= fer-substring (point-min) (point-max))) (kill-buffer read-buffer)))) (setq = eval-expression-debug-on-error t) (switch-to-buffer this-buffer) new-value)) read-from-buffer(";;; rcd-cf.el --- CF or Central Files functions fo..." = "vc_value ID 81784" text-mode nil nil (("table" . "vc") ("column" . "vc_val= ue") ("table-id" . 81784) ("place" . 0))) rcd-db-edit-entry("vc" "vc_value" 81784) rcd-db-tabulated-edit-value() funcall-interactively(rcd-db-tabulated-edit-value) command-execute(rcd-db-tabulated-edit-value) In GNU Emacs 29.0.50 (build 3, x86_64-pc-linux-gnu, X toolkit, cairo version 1.17.6, Xaw3d scroll bars) of 2022-10-05 built on protected.rcdrun.com Repository revision: 9449e0740cd97bbcdbaeb4713dc2dd51e65994fd Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12101004 System Description: Parabola GNU/Linux-libre Configured using: 'configure --with-x-toolkit=3Dlucid --with-native-compilation' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS WEBP X11 XAW3D XDBE XIM XINPUT2 XPM LUCID ZLIB Important settings: value of $LC_ALL: en_US.UTF-8 value of $LANG: de_DE.UTF-8 value of $XMODIFIERS: @im=3Dexwm-xim locale-coding-system: utf-8-unix Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t global-eldoc-mode: t eldoc-mode: t show-paren-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t line-number-mode: t indent-tabs-mode: t transient-mark-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message mailcap yank-media puny dired dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068 epg-config gnus-util text-property-search time-date mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs comp comp-cstr warnings icons subr-x rx cl-seq cl-macs gv cl-extra help-mode bytecomp byte-compile cconv cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils rmc iso-transl tooltip eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic indonesian philippine cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget keymap hashtable-print-readable backquote threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting cairo x-toolkit xinput2 x multi-tty make-network-process native-compile emacs) Memory information: ((conses 16 79577 9313) (symbols 48 7181 0) (strings 32 20692 1256) (string-bytes 1 616498) (vectors 16 16108) (vector-slots 8 280250 10874) (floats 8 29 30) (intervals 56 257 0) (buffers 1000 12)) --=20 Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/