From: Jambunathan K <kjambunathan@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: replacing a function with another one
Date: Wed, 12 Mar 2014 18:46:26 +0530 [thread overview]
Message-ID: <87eh27iml1.fsf@gmail.com> (raw)
In-Reply-To: <87vbvofsi6.fsf@yun.yagibdah.de> (lee@yun.yagibdah.de's message of "Sat, 08 Mar 2014 20:43:36 +0100")
[-- Attachment #1: Type: text/plain, Size: 1729 bytes --]
Hello OP,
It seems you don't mind digging in to elisp code.
1. Put the following snippet (see below) in to your .emacs.
2. Restart emacs
3. C-x C-f somefile.txt
4. M-x add-file-local-variable RET hi-lock-patterns-file RET "somefile.patterns"
5. C-x C-v
6. Highlight some strings here and there
7. Make some modifications to the file
8. C-x C-s
Now,
1. C-x C-f somefile.txt.
2. You should see the highlights.
When you highlight some text, the buffer is considered as *not*
modified. So after-save-hook will not be called if there are no actual
modifications in the current session. In that case, you can force a
write of the patterns file with
M-x hi-lock-file-save-patterns
See the attached sample files for what I mean.
----------------------------------------------------------------
(add-hook 'find-file-hook 'hi-lock-find-file-hook)
(add-hook 'after-save-hook 'hi-lock-file-save-patterns)
(defun hi-lock-find-file-hook ()
(when (and (boundp 'hi-lock-patterns-file)
(file-readable-p hi-lock-patterns-file))
(let ((patterns (with-current-buffer (find-file-noselect hi-lock-patterns-file)
(goto-char (point-min))
(prog1 (ignore-errors (read (current-buffer)))
(kill-buffer)))))
(setq hi-lock-interactive-patterns patterns)
(font-lock-add-keywords nil hi-lock-interactive-patterns t))))
(defun hi-lock-file-save-patterns ()
(interactive)
(when (boundp 'hi-lock-patterns-file)
(let ((patterns (append hi-lock-file-patterns hi-lock-interactive-patterns)))
(with-current-buffer (find-file-noselect hi-lock-patterns-file)
(erase-buffer)
(insert (pp-to-string patterns))
(save-buffer 0)))))
----------------------------------------------------------------
[-- Attachment #2: somefile.patterns --]
[-- Type: application/octet-stream, Size: 141 bytes --]
(("\\_<goodbye\\_>"
(0 'highlight-3 prepend))
("\\_<world\\_>"
(0 'highlight-2 prepend))
("\\_<hello\\_>"
(0 'highlight-1 prepend)))
[-- Attachment #3: somefile.txt --]
[-- Type: text/plain, Size: 105 bytes --]
hello world
goodbye world
;; Local Variables:
;; hi-lock-patterns-file: "somefile.patterns"
;; End:
next prev parent reply other threads:[~2014-03-12 13:16 UTC|newest]
Thread overview: 62+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-03-08 19:43 replacing a function with another one lee
2014-03-08 19:54 ` Eli Zaretskii
2014-03-09 1:17 ` lee
2014-03-08 22:30 ` Michael Heerdegen
2014-03-09 17:58 ` lee
2014-03-09 19:10 ` Michael Heerdegen
2014-03-09 20:57 ` lee
2014-03-09 22:02 ` Michael Heerdegen
2014-03-10 0:53 ` lee
2014-03-10 2:18 ` Michael Heerdegen
2014-03-10 15:29 ` lee
2014-03-11 0:03 ` Michael Heerdegen
2014-03-11 13:34 ` lee
2014-03-11 23:40 ` Michael Heerdegen
2014-03-12 6:11 ` Michael Heerdegen
2014-03-12 7:07 ` Michael Heerdegen
2014-03-12 14:48 ` lee
2014-03-13 7:19 ` Michael Heerdegen
2014-03-15 19:51 ` lee
2014-03-17 12:00 ` Michael Heerdegen
2014-03-12 14:04 ` lee
2014-03-12 18:26 ` Stefan Monnier
2014-03-12 4:10 ` Michael Heerdegen
2014-03-10 12:44 ` Stefan Monnier
2014-03-10 23:35 ` lee
2014-03-11 0:41 ` Michael Heerdegen
2014-03-11 1:45 ` Michael Heerdegen
2014-03-11 19:05 ` lee
2014-03-11 22:58 ` Michael Heerdegen
2014-03-12 15:11 ` lee
2014-03-12 18:15 ` Stefan Monnier
2014-03-12 21:43 ` lee
2014-03-13 7:22 ` Michael Heerdegen
2014-03-15 20:02 ` lee
2014-03-11 4:11 ` lee
2014-03-11 5:01 ` Michael Heerdegen
2014-03-11 14:25 ` lee
2014-03-11 23:51 ` Michael Heerdegen
2014-03-12 15:22 ` lee
2014-03-13 7:33 ` Michael Heerdegen
2014-03-13 12:29 ` Stefan Monnier
2014-03-15 20:05 ` lee
2014-03-16 17:20 ` Stefan
2014-03-11 6:51 ` Michael Heerdegen
2014-03-11 15:41 ` lee
2014-03-11 23:21 ` Michael Heerdegen
2014-03-12 17:33 ` lee
2014-03-12 19:34 ` Florian Beck
2014-03-12 19:51 ` Florian Beck
2014-03-13 7:54 ` Michael Heerdegen
2014-03-15 20:14 ` lee
2014-03-12 12:45 ` Stefan Monnier
2014-03-12 17:42 ` lee
2014-03-13 2:43 ` Jambunathan K
2014-03-15 20:17 ` How to propose an emacs patch (Re: replacing a function with another one) lee
2014-03-16 3:21 ` Jambunathan K
2014-03-17 4:35 ` lee
2014-03-10 13:45 ` replacing a function with another one lee
2014-03-10 23:31 ` Michael Heerdegen
2014-03-12 13:16 ` Jambunathan K [this message]
2014-03-12 13:18 ` Jambunathan K
2014-03-15 20:22 ` lee
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87eh27iml1.fsf@gmail.com \
--to=kjambunathan@gmail.com \
--cc=help-gnu-emacs@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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.