Mercurial > emacs
comparison lisp/bookmark.el @ 6287:33477d79a6f2
(kill-emacs-hook): Don't autoload this hook.
(bookmark-menu-bar-delete, bookmark-menu-bar-rename)
(bookmark-menu-bar-locate, bookmark-menu-bar-jump)
(bookmark-menu-bar-insert): Add autoloads.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Mar 1994 07:32:24 +0000 |
| parents | 1b76cf849b2f |
| children | cc7cd83ccf3f |
comparison
equal
deleted
inserted
replaced
| 6286:676773222f1f | 6287:33477d79a6f2 |
|---|---|
| 159 | 159 |
| 160 (defvar bookmarks-already-loaded nil) | 160 (defvar bookmarks-already-loaded nil) |
| 161 | 161 |
| 162 ;; just add the hook to make sure that people don't lose bookmarks | 162 ;; just add the hook to make sure that people don't lose bookmarks |
| 163 ;; when they kill Emacs, unless they don't want to save them. | 163 ;; when they kill Emacs, unless they don't want to save them. |
| 164 ;;;###autoload | |
| 165 (add-hook 'kill-emacs-hook | 164 (add-hook 'kill-emacs-hook |
| 166 (function | 165 (function |
| 167 (lambda () (and (featurep 'bookmark) | 166 (lambda () (and (featurep 'bookmark) |
| 168 bookmark-alist | 167 bookmark-alist |
| 169 (bookmark-time-to-save-p t) | 168 (bookmark-time-to-save-p t) |
| 1186 (str (x-popup-menu event | 1185 (str (x-popup-menu event |
| 1187 (list menu-label | 1186 (list menu-label |
| 1188 (cons menu-str menu))))) | 1187 (cons menu-str menu))))) |
| 1189 (if str (apply func-sym (list str))))) | 1188 (if str (apply func-sym (list str))))) |
| 1190 | 1189 |
| 1190 ;;;###autoload | |
| 1191 (defun bookmark-menu-bar-insert (event) | 1191 (defun bookmark-menu-bar-insert (event) |
| 1192 "Insert the text of the file pointed to by bookmark BOOKMARK. | 1192 "Insert the text of the file pointed to by bookmark BOOKMARK. |
| 1193 You may have a problem using this function if the value of variable | 1193 You may have a problem using this function if the value of variable |
| 1194 `bookmark-alist' is nil. If that happens, you need to load in some | 1194 `bookmark-alist' is nil. If that happens, you need to load in some |
| 1195 bookmarks. See help on function `bookmark-load' for more about | 1195 bookmarks. See help on function `bookmark-load' for more about |
| 1198 (bookmark-make-menu-bar-with-function 'bookmark-insert | 1198 (bookmark-make-menu-bar-with-function 'bookmark-insert |
| 1199 "Bookmark Insert Menu" | 1199 "Bookmark Insert Menu" |
| 1200 "--- Insert Contents ---" | 1200 "--- Insert Contents ---" |
| 1201 event)) | 1201 event)) |
| 1202 | 1202 |
| 1203 ;;;###autoload | |
| 1203 (defun bookmark-menu-bar-jump (event) | 1204 (defun bookmark-menu-bar-jump (event) |
| 1204 "Jump to bookmark BOOKMARK (a point in some file). | 1205 "Jump to bookmark BOOKMARK (a point in some file). |
| 1205 You may have a problem using this function if the value of variable | 1206 You may have a problem using this function if the value of variable |
| 1206 `bookmark-alist' is nil. If that happens, you need to load in some | 1207 `bookmark-alist' is nil. If that happens, you need to load in some |
| 1207 bookmarks. See help on function `bookmark-load' for more about | 1208 bookmarks. See help on function `bookmark-load' for more about |
| 1210 (bookmark-make-menu-bar-with-function 'bookmark-jump | 1211 (bookmark-make-menu-bar-with-function 'bookmark-jump |
| 1211 "Bookmark Jump Menu" | 1212 "Bookmark Jump Menu" |
| 1212 "--- Jump to Bookmark ---" | 1213 "--- Jump to Bookmark ---" |
| 1213 event)) | 1214 event)) |
| 1214 | 1215 |
| 1216 ;;;###autoload | |
| 1215 (defun bookmark-menu-bar-locate (event) | 1217 (defun bookmark-menu-bar-locate (event) |
| 1216 "Insert the name of the file associated with BOOKMARK. | 1218 "Insert the name of the file associated with BOOKMARK. |
| 1217 \(This is not the same as the contents of that file\)." | 1219 \(This is not the same as the contents of that file\)." |
| 1218 (interactive "e") | 1220 (interactive "e") |
| 1219 (bookmark-make-menu-bar-with-function 'bookmark-locate | 1221 (bookmark-make-menu-bar-with-function 'bookmark-locate |
| 1220 "Bookmark Locate Menu" | 1222 "Bookmark Locate Menu" |
| 1221 "--- Insert Location ---" | 1223 "--- Insert Location ---" |
| 1222 event)) | 1224 event)) |
| 1223 | 1225 |
| 1226 ;;;###autoload | |
| 1224 (defun bookmark-menu-bar-rename (event) | 1227 (defun bookmark-menu-bar-rename (event) |
| 1225 "Change the name of OLD-BOOKMARK to NEWNAME. | 1228 "Change the name of OLD-BOOKMARK to NEWNAME. |
| 1226 If called from keyboard, prompts for OLD-BOOKMARK and NEWNAME. | 1229 If called from keyboard, prompts for OLD-BOOKMARK and NEWNAME. |
| 1227 If called from menubar, OLD-BOOKMARK is selected from a menu, and | 1230 If called from menubar, OLD-BOOKMARK is selected from a menu, and |
| 1228 prompts for NEWNAME. | 1231 prompts for NEWNAME. |
| 1237 (bookmark-make-menu-bar-with-function 'bookmark-rename | 1240 (bookmark-make-menu-bar-with-function 'bookmark-rename |
| 1238 "Bookmark Rename Menu" | 1241 "Bookmark Rename Menu" |
| 1239 "--- Rename Bookmark ---" | 1242 "--- Rename Bookmark ---" |
| 1240 event)) | 1243 event)) |
| 1241 | 1244 |
| 1245 ;;;###autoload | |
| 1242 (defun bookmark-menu-bar-delete (event) | 1246 (defun bookmark-menu-bar-delete (event) |
| 1243 "Delete the bookmark named NAME from the bookmark list. | 1247 "Delete the bookmark named NAME from the bookmark list. |
| 1244 Removes only the first instance of a bookmark with that name. If | 1248 Removes only the first instance of a bookmark with that name. If |
| 1245 there are one or more other bookmarks with the same name, they will | 1249 there are one or more other bookmarks with the same name, they will |
| 1246 not be deleted. Defaults to the \"current\" bookmark \(that is, the | 1250 not be deleted. Defaults to the \"current\" bookmark \(that is, the |