Mercurial > emacs
comparison lisp/bookmark.el @ 24763:c9362ef0817a
Delete some XEmacs compatibility code.
(bookmark-jump-noselect): Check vc-backend.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 May 1999 21:46:08 +0000 |
| parents | 5682c77dce71 |
| children | 2f62700913ab |
comparison
equal
deleted
inserted
replaced
| 24762:585c5f115d83 | 24763:c9362ef0817a |
|---|---|
| 213 ;; This variable is probably obsolete now... | 213 ;; This variable is probably obsolete now... |
| 214 (or (boundp 'baud-rate) | 214 (or (boundp 'baud-rate) |
| 215 ;; some random value higher than 9600 | 215 ;; some random value higher than 9600 |
| 216 (setq baud-rate 19200)) | 216 (setq baud-rate 19200)) |
| 217 | 217 |
| 218 ;; XEmacs apparently call this `buffer-substring-without-properties', | |
| 219 ;; sigh. | |
| 220 (or (fboundp 'buffer-substring-no-properties) | |
| 221 (if (fboundp 'buffer-substring-without-properties) | |
| 222 (fset 'buffer-substring-no-properties | |
| 223 'buffer-substring-without-properties) | |
| 224 (fset 'buffer-substring-no-properties 'buffer-substring))) | |
| 225 | 218 |
| 226 | 219 |
| 227 ;;; Keymap stuff: | 220 ;;; Keymap stuff: |
| 228 | 221 |
| 229 ;; Set up these bindings dumping time *only*; | 222 ;; Set up these bindings dumping time *only*; |
| 1095 (info-node (bookmark-get-info-node str)) | 1088 (info-node (bookmark-get-info-node str)) |
| 1096 (orig-file file) | 1089 (orig-file file) |
| 1097 ) | 1090 ) |
| 1098 (if (or | 1091 (if (or |
| 1099 (file-exists-p file) | 1092 (file-exists-p file) |
| 1100 ;; else try some common compression extensions | 1093 ;; Else try some common compression extensions, which Emacs |
| 1101 ;; and Emacs better handle it right! | 1094 ;; usually handles right. I hope. |
| 1102 ;; Sigh: I think it may *not* be handled at the moment. What | |
| 1103 ;; to do about this? | |
| 1104 (setq file | 1095 (setq file |
| 1105 (or | 1096 (or |
| 1106 (let ((altname (concat file ".Z"))) | 1097 (let ((altname (concat file ".Z"))) |
| 1107 (and (file-exists-p altname) | 1098 (and (file-exists-p altname) |
| 1108 altname)) | 1099 altname)) |
| 1109 (let ((altname (concat file ".gz"))) | 1100 (let ((altname (concat file ".gz"))) |
| 1110 (and (file-exists-p altname) | 1101 (and (file-exists-p altname) |
| 1111 altname)) | 1102 altname)) |
| 1112 (let ((altname (concat file ".z"))) | 1103 (let ((altname (concat file ".z"))) |
| 1113 (and (file-exists-p altname) | 1104 (and (file-exists-p altname) |
| 1114 altname))))) | 1105 altname)) |
| 1106 ;; Check VC incarnations, preparatory to checkout | |
| 1107 (if (vc-backend file) file nil)))) | |
| 1115 (save-excursion | 1108 (save-excursion |
| 1116 (save-window-excursion | 1109 (save-window-excursion |
| 1117 (if info-node | 1110 (if info-node |
| 1118 ;; Info nodes must be visited with care. | 1111 ;; Info nodes must be visited with care. |
| 1119 (progn | 1112 (progn |