Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dbf284be
Commit
dbf284be
authored
Jan 02, 2007
by
Juanma Barranquero
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(momentary-string-display): After moving point, set POS variable to it to avoid
later errors once the buffer is modified. Doc fix.
parent
a6c327a8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
4 deletions
+13
-4
lisp/ChangeLog
lisp/ChangeLog
+10
-4
lisp/subr.el
lisp/subr.el
+3
-0
No files found.
lisp/ChangeLog
View file @
dbf284be
2007-01-02 Juanma Barranquero <lekktu@gmail.com>
* subr.el (momentary-string-display): After moving point, set POS
variable to it to avoid later errors once the buffer is modified.
Doc fix.
2007-01-02 Alan Mackenzie <acm@muc.de>
* progmodes/cc-cmds.el (c-mask-paragraph): In a block comment,
...
...
@@ -7,13 +13,13 @@
* wid-edit.el (widget-choose): Avoid ugly error for function keys.
* progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords):
* progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords):
Fix format of value.
* cus-edit.el (customize-unsaved): Renamed from customize-customized.
Change messages accordingly.
(customize-customized): Now alias.
2007-01-02 Juanma Barranquero <lekktu@gmail.com>
* files.el (version-control): Doc fix.
...
...
@@ -2317,8 +2323,8 @@
2006-10-19 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* select.el (ccl-check-utf-8, string-utf-8-p): New functions
(by
Kenichi Handa).
* select.el (ccl-check-utf-8, string-utf-8-p): New functions
(by
Kenichi Handa).
(xselect-convert-to-string): Decline requests for UTF8_STRING if
the selection is not UTF-8.
lisp/subr.el
View file @
dbf284be
...
...
@@ -1887,6 +1887,7 @@ menu bar menus and the frame title."
(
defun
momentary-string-display
(
string
pos
&optional
exit-char
message
)
"Momentarily display STRING in the buffer at POS.
Display remains until next event is input.
If POS is a marker, only its position is used; its buffer is ignored.
Optional third arg EXIT-CHAR can be a character, event or event
description list. EXIT-CHAR defaults to SPC. If the input is
EXIT-CHAR it is swallowed; otherwise it is then available as
...
...
@@ -1904,6 +1905,8 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
(
progn
(
save-excursion
(
goto-char
pos
)
;; To avoid trouble with out-of-bounds position
(
setq
pos
(
point
))
;; defeat file locking... don't try this at home, kids!
(
setq
buffer-file-name
nil
)
(
insert-before-markers
string
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment