emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Rafal <raf@irmak.com.pl>
To: emacs-orgmode@gnu.org
Subject: Re: regexp link on windows problem
Date: Fri, 11 Mar 2011 13:41:45 +0000 (UTC)	[thread overview]
Message-ID: <loom.20110311T141204-597@post.gmane.org> (raw)
In-Reply-To: 87r5aenj02.fsf@gnu.org

Bastien <bzg <at> altern.org> writes:

Hi Bastien,

> Can you give an example?

So I'm trying to write a custom function to set regexp search string for c/c++
code by writing org-create-file-search-functions hook. (code #1 below )

After using the hook by issuing org-store-link in c/c++ buffer, and
org-insert-link in org-mode buffer I noticed that the link has slashes instead
of backslashes in my regexp.
So I delved into the org-insert-link code and found out that it calls
expand-file-name on the whole link (filename::regexp) which translates my
regexp's backslashes to slashes. It happens only on emacs on windows, 
under linux it is ok.
I also experimented by changing the culprit lines of org-store-link and 
it helped (code #2 below) but it seems to be too destructive. 
So I'm wondering if it is a bug that may be fixed or my way of doing 
it is wrong?


GNU Emacs 23.2.1 (i386-mingw-nt5.1.2600) of 2010-05-08 on G41R2F1 
Org-mode version 7.4

;; code #1
(defun make-token-regexp-1()
  (let ((WS "") curpos-tmp)
    (setq curpos (point))
    (setq curpos-tmp (point))
    (c-end-of-statement 1 nil t)
    (or (eq curline (line-number-at-pos)) (goto-char curpos))
    (setq curpos (point))
    (c-beginning-of-statement 1 nil t)
    (while (and (eq curline (line-number-at-pos)) (not (eq curpos (point))))
      (setq curpos (point))
      (setq curpos-tmp (point))
      (c-beginning-of-statement 1 nil t))
    (or (eq curline (line-number-at-pos)) (goto-char curpos-tmp))    
    (setq curpos (point))
    (while (and (eq curline (line-number-at-pos)) (not (eq curpos (point))))
      (setq linkv (concat linkv WS (regexp-quote (org-trim (buffer-substring
curpos (point))))))
      (setq curpos (point))
      (and (< 0 (length linkv)) (setq WS "[ \\t]*"))
  (goto-char curpos)
  (and linkv (setq linkv (concat linkv "[ \\t]*" (regexp-quote (org-trim
(buffer-substring curpos (point)))))))

(defun make-token-regexp()
(c-save-buffer-state ((savepos (point)) linkv tokens curpos (curline
  (goto-char savepos)    
  (setq description "code-1")
  (and linkv (setq linkv (concat "/" linkv "/")))

(add-hook 'org-create-file-search-functions 'make-token-regexp)

;; code #2
;; original piece of code
		;; We are linking a file with relative path name.
		(setq path (substring (expand-file-name path)
				      (match-end 0)))
	      (setq path (abbreviate-file-name (expand-file-name path)))))))

;;my changes
		;; We are linking a file with relative path name.
		(setq path (substring (expand-file-name path)
				      (match-end 0)))
              (let ((path-1) (search-1))
                (if (string-match "::\\(.+\\)\\'" path)
                    (progn (setq search-1 (match-string 1 path)
                                 path-1 (substring path 0 (match-beginning 0))
                                 path (concat (abbreviate-file-name
(expand-file-name path-1)) "::" search-1))))
                (setq path (abbreviate-file-name (expand-file-name path)))))))

  reply	other threads:[~2011-03-11 13:45 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-03-08 14:54 regexp link on windows problem Rafal Florek
2011-03-11  8:45 ` Bastien
2011-03-11 13:41   ` Rafal [this message]
2011-03-20 17:01     ` David Maus
2011-03-21  7:28       ` Rafal

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:

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=loom.20110311T141204-597@post.gmane.org \
    --to=raf@irmak.com.pl \
    --cc=emacs-orgmode@gnu.org \


* 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.
Code repositories for project(s) associated with this public inbox


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).