Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
596ff2ee
Commit
596ff2ee
authored
May 23, 1999
by
Richard M. Stallman
Browse files
Delete some XEmacs compatibility code.
(bookmark-jump-noselect): Check vc-backend.
parent
5d5fa02f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
12 deletions
+5
-12
lisp/bookmark.el
lisp/bookmark.el
+5
-12
No files found.
lisp/bookmark.el
View file @
596ff2ee
...
...
@@ -215,13 +215,6 @@ following in your `.emacs' file:
;; some random value higher than 9600
(
setq
baud-rate
19200
))
;; XEmacs apparently call this `buffer-substring-without-properties',
;; sigh.
(
or
(
fboundp
'buffer-substring-no-properties
)
(
if
(
fboundp
'buffer-substring-without-properties
)
(
fset
'buffer-substring-no-properties
'buffer-substring-without-properties
)
(
fset
'buffer-substring-no-properties
'buffer-substring
)))
;;; Keymap stuff:
...
...
@@ -1097,10 +1090,8 @@ of the old one in the permanent bookmark record."
)
(
if
(
or
(
file-exists-p
file
)
;; else try some common compression extensions
;; and Emacs better handle it right!
;; Sigh: I think it may *not* be handled at the moment. What
;; to do about this?
;; Else try some common compression extensions, which Emacs
;; usually handles right. I hope.
(
setq
file
(
or
(
let
((
altname
(
concat
file
".Z"
)))
...
...
@@ -1111,7 +1102,9 @@ of the old one in the permanent bookmark record."
altname
))
(
let
((
altname
(
concat
file
".z"
)))
(
and
(
file-exists-p
altname
)
altname
)))))
altname
))
;; Check VC incarnations, preparatory to checkout
(
if
(
vc-backend
file
)
file
nil
))))
(
save-excursion
(
save-window-excursion
(
if
info-node
...
...
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