Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4ce5c223
Commit
4ce5c223
authored
Jul 02, 2001
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-clone-buffer-hook): Really unconditionally copy marker.
parent
24cc235a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
11 deletions
+14
-11
lisp/ChangeLog
lisp/ChangeLog
+9
-7
lisp/info.el
lisp/info.el
+5
-4
No files found.
lisp/ChangeLog
View file @
4ce5c223
2001-07-02 Stefan Monnier <monnier@cs.yale.edu>
* info.el (Info-clone-buffer-hook): Really unconditionally copy marker.
2001-07-02 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of
2000-10-15.
* emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of 2000-10-15.
2001-07-02 Eli Zaretskii <eliz@is.elta.co.il>
* allout.el: Fix the header line, so that finder.el recognizes it.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
* emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix.
From Pavel
Jan,Bm(Bk <Pavel@Janik.cz>.
* emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix.
From Pavel
Jan,Bm(Bk <Pavel@Janik.cz>.
2001-06-29 Eli Zaretskii <eliz@is.elta.co.il>
* term/w32-win.el (x-colors): Add colors from the recent rgb.txt
file.
* term/w32-win.el (x-colors): Add colors from the recent rgb.txt file.
* ps-bdf.el (bdf-directory-list): Use the value relative to
installation-directory for MS-Windows as well.
...
...
@@ -36,7 +38,7 @@
(rmail-msg-restore-non-pruned-header): Likewise.
If point was in the old pruned header, put it at the top.
(rmail-msg-prune-header): If point was at the top, keep it there.
* mail/rmail.el (rmail-narrow-to-non-pruned-header): New function.
(rmail-retry-failure): Use rmail-narrow-to-non-pruned-header.
...
...
lisp/info.el
View file @
4ce5c223
...
...
@@ -664,7 +664,7 @@ a case-insensitive match is tried."
;; Search file for a suitable node.
(
let
((
guesspos
(
point-min
))
(
regexp
(
concat
"\\(Node:\\|Ref:\\) *\\("
(if (stringp nodename)
(
if
(
stringp
nodename
)
(
regexp-quote
nodename
)
""
)
"\\) *[,\t\n\177]"
))
...
...
@@ -2309,10 +2309,11 @@ Advanced commands:
(defun Info-clone-buffer-hook ()
(when (bufferp Info-tag-table-buffer)
(setq Info-tag-table-buffer
(with-current-buffer Info-tag-table-buffer (clone-buffer)))
(let ((m Info-tag-table-marker))
(with-current-buffer Info-tag-table-buffer (clone-buffer))))
(let ((m Info-tag-table-marker))
(when (markerp m)
(setq Info-tag-table-marker
(if (and (marker
p m) (marker-position m
))
(if (and (marker
-position m) (bufferp Info-tag-table-buffer
))
(with-current-buffer Info-tag-table-buffer
(copy-marker (marker-position m)))
(make-marker))))))
...
...
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