From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: ~`symbol-function' to get code as list even when byte-compiled? Date: Mon, 25 May 2015 04:52:55 +0200 Organization: Aioe.org NNTP Server Message-ID: <877frxid14.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1432522223 19932 80.91.229.3 (25 May 2015 02:50:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 25 May 2015 02:50:23 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon May 25 04:50:19 2015 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YwiT3-0000na-Uk for geh-help-gnu-emacs@m.gmane.org; Mon, 25 May 2015 04:50:18 +0200 Original-Received: from localhost ([::1]:41600 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YwiT3-0002a0-4Y for geh-help-gnu-emacs@m.gmane.org; Sun, 24 May 2015 22:50:17 -0400 Original-Path: usenet.stanford.edu!news.kjsl.com!feeder.erje.net!1.eu.feeder.erje.net!news.albasani.net!news.mixmin.net!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 63 Original-NNTP-Posting-Host: feB02bRejf23rfBm51Mt7Q.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:VEOq2i3NqBuQvwRCZtzI7DHZ8s4= Mail-Copies-To: never Original-Xref: usenet.stanford.edu gnu.emacs.help:212265 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:104549 Archived-At: (re-search-forward "^Question") Here is some interesting code. What's interesting is: when this code executes, it changes itself, i.e. the code changes the code! But it isn't a macro which is a program that produces a new program based on its own logic and non-evaluated input data. On the contrary, here we deal all with ordinary functions (defuns) where one changes the other. Does that always happen? No - only when it is needed! See the entire code here [1]. Go there if you want to see this in execution as it probably is based on some other functions as well. The below code is for display purposes ONLY! Question: this is all working thanks to `symbol-function' which is used to get the code of the function as data, so it can be examined and manipulated. However, if I byte-compile the code (which I always do), `symbol-function' doesn't return a lambda function which is also a list, but instead just a function #[...] which isn't a list. So then it doesn't work! I was able to do a workaround with `load-file' in .emacs to get all the functions in the file in evaluated form. But, can I do that specifically for a named function, *or*, can I extract the code in list format somehow even if compiled? (symbol-function jump) (defun enable-jump (jump) (add-hook 'w3m-display-hook jump) (let*((code (symbol-function jump)) (remove-code `(remove-hook 'w3m-display-hook (quote ,jump))) (remove-code-index 2) (current-code (nth remove-code-index code)) ) (unless (equal current-code remove-code) (push remove-code (nthcdr remove-code-index code)) ))) (defun web-search () (interactive) (let ((search (get-search-string "Google"))) (unless (empty-string-p search) (w3m-new-tab (format "Google: %s" search)) (w3m-search w3m-search-default-engine search) )) (enable-jump 'number-one-jump) ) (defun number-one-jump (&optional not-used) ; Google, Youtube (when (re-search-forward "^ 1." (point-max) t) (recenter-top-bottom 0) (w3m-next-anchor) )) [1] http://user.it.uu.se/~embe8573/conf/emacs-init/w3m/w3m-unisearch.el -- underground experts united http://user.it.uu.se/~embe8573