| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/saveplace.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/saveplace.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'save-place nil "Automatically save place in files." :group 'data)
#@255 Alist of saved places to go back to when revisiting files.
Each element looks like (FILENAME . POSITION);
visiting file FILENAME goes automatically to position POSITION
rather than the beginning of the buffer.
This alist is saved between Emacs sessions.
(defvar save-place-alist nil (#$ . 642))
(byte-code "\300\301\302\303\304\305\306\307\310\301& \210\311\301!\210\300\312\313\314\304\315\310\301&\210\300\316\302\317\304\320\310\301&\207" [custom-declare-variable save-place nil "Non-nil means automatically save place in each file.\nThis means when you visit a file, point goes to the last place\nwhere it was when you previously visited the same file.\nThis variable is automatically buffer-local.\n\nIf you wish your place in any file to always be automatically\nsaved, set this to t using the Customize facility, or put the\nfollowing code in your init file:\n\n(setq-default save-place t)\n(require 'saveplace)" :type boolean :require saveplace :group make-variable-buffer-local save-place-file (convert-standard-filename "~/.emacs-places") "Name of the file that records `save-place-alist' value." file save-place-version-control "Controls whether to make numbered backups of master save-place file.\nIt can have four values: t, nil, `never', and `nospecial'. The first\nthree have the same meaning that they do for the variable\n`version-control', and the final value `nospecial' means just use the\nvalue of `version-control'." (radio (const :tag "Unconditionally" t) (const :tag "For VC Files" nil) (const never) (const :tag "Use value of `version-control'" nospecial))] 10)
#@59 Non-nil means that the `save-place-file' has been loaded.
(defvar save-place-loaded nil (#$ . 2238))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\306\315\310\311&\210\300\316\313\317\306\315\310\311&\210\300\320\321\322\306\323\310\311&\210\300\324\325\326\304\305\306\323\310\311& \207" [custom-declare-variable save-place-limit 400 "Maximum number of entries to retain in the list; nil means no limit." :version "24.1" :type (choice (integer :tag "Entries" :value 1) (const :tag "No Limit" nil)) :group save-place save-place-forget-unreadable-files t "Non-nil means forget place in unreadable files.\n\nThe filenames in `save-place-alist' that do not match\n`save-place-skip-check-regexp' are filtered through\n`file-readable-p'. if nil, their alist entries are removed.\n\nYou may do this anytime by calling the complementary function,\n`save-place-forget-unreadable-files'. When this option is turned on,\nthis happens automatically before saving `save-place-alist' to\n`save-place-file'." boolean save-place-save-skipped "If non-nil, remember files matching `save-place-skip-check-regexp'.\n\nWhen filtering `save-place-alist' for unreadable files, some will not\nbe checked, based on said regexp, and instead saved or forgotten based\non this flag." save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)" "Regexp whose file names shall not be checked for readability.\n\nWhen forgetting unreadable files, file names matching this regular\nexpression shall not be checked for readability, but instead be\nsubject to `save-place-save-skipped'.\n\nFiles for which such a check may be inconvenient include those on\nremovable and network volumes." regexp save-place-ignore-files-regexp "\\(?:COMMIT_EDITMSG\\|hg-editor-[[:alnum:]]+\\.txt\\|svn-commit\\.tmp\\|bzr_log\\.[[:alnum:]]+\\)$" "Regexp matching files for which no position should be recorded.\nUseful for temporary file such as commit message files that are\nautomatically created by the VCS. If set to nil, this feature is\ndisabled, i.e., the position is recorded for all files."] 10)
#@424 Toggle whether to save your place in this file between sessions.
If this mode is enabled, point is recorded when you kill the buffer
or exit Emacs. Visiting this file again will go to that position,
even in a later Emacs session.
If called with a prefix arg, the mode is enabled if and only if
the argument is positive.
To save places automatically in all files, put this in your init
file:
(setq-default save-place t)
(defalias 'toggle-save-place #[(&optional parg) "\204\n \303\304\305 \"\207 \203 \n\203 \n\306X\203 \303\307!\210\310\211\207\303\311!\210\312\211\207" [buffer-file-name save-place parg message "Buffer `%s' not visiting a file" buffer-name 0 "No place will be saved in this file" nil "Place will be saved" t] 3 (#$ . 4372) "P"])
(defalias 'save-place-to-alist #[nil "\204 \306 \210 \205I \n\203 \307\n \"?\205I \310 \"\f\311=\204% `\202( \312 T \211
\2035 \313
\"\205H
\314U?\205H
B B\211*\207" [save-place-loaded buffer-file-name save-place-ignore-files-regexp save-place-alist major-mode position load-save-place-alist-from-file string-match assoc hexl-mode hexl-current-address delq 1 cell save-place] 4])
#@233 Remove unreadable files from `save-place-alist'.
For each entry in the alist, if `file-readable-p' returns nil for the
filename, remove the entry. Save the new alist (as the first pair
may have changed) back to `save-place-alist'.
(defalias 'save-place-forget-unreadable-files #[nil "\205Z \211A \2039 \306 \211 @@)\"\203
\202% \307 \211 @@)!\203- \2022 \n A\241\210 A\211\204
*\306 \211 @@)\"\203J
\202R \307\211 @@)!?\205Z A\211\207" [save-place-alist fmcur fmprev save-place-skip-check-regexp x save-place-save-skipped string-match file-readable-p] 4 (#$ . 5531) nil])
(defalias 'save-place-alist-to-file #[nil "\306!\307r\310\311!q\210ed|\210 \203 \303 \210\312\313\314 !\"c\210\315\211 \316\317\320\"p\"\210*\2046 \315\202N \321=\203A \321\202N \322=\203M \202N \323 \315\324\325\217\210\326p!,\207" [save-place-file coding-system-for-write file save-place-forget-unreadable-files print-level print-length expand-file-name utf-8 get-buffer-create " *Saved Places*" format ";;; -*- coding: %s -*-\n" symbol-name nil pp sort #[(a b) "@ @\231\207" [a b] 2] never nospecial t (byte-code "\301ed#\207" [file write-region] 4) ((file-error (message "Saving places: can't write %s" file))) kill-buffer save-place-alist save-place-version-control version-control] 4])
(defalias 'load-save-place-alist-from-file #[nil "?\205c \306\307 !\310\n!\203a r\311\312!q\210ed|\210\313\n!\210eb\210\314ed{!@\f\203\\ \f\315X\2038 \316\202\\ \317 \211 \203[
\fY\203O \316\241\210\202R
TA\211\204A *\320p!\210))\316\207" [save-place-loaded save-place-file file save-place-alist save-place-limit count t expand-file-name file-readable-p get-buffer-create " *Saved Places*" insert-file-contents read-from-string 0 nil 1 kill-buffer s] 4])
(defalias 'save-places-to-alist #[nil "\302 \205 r@q\210 \203 \303 \210A)\202 )\207" [buf-list buffer-file-name buffer-list save-place-to-alist] 1])
(defalias 'save-place-find-file-hook #[nil "\204 \306 \210\307 \n\"\211\205 \f\204 Ab\210\310\211)\207" [save-place-loaded buffer-file-name save-place-alist cell revert-buffer-in-progress-p save-place load-save-place-alist-from-file assoc t] 4])
(defalias 'save-place-kill-emacs-hook #[nil "\301 \210\205 \302 \207" [save-place-loaded save-places-to-alist save-place-alist-to-file] 1])
(byte-code "\301\302\303\304#\210\204 \301\305\306\"\210\301\307\310\"\210\311\312!\207" [noninteractive add-hook find-file-hook save-place-find-file-hook t kill-emacs-hook save-place-kill-emacs-hook kill-buffer-hook save-place-to-alist provide saveplace] 4)