;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317&\210\306\320\310\311\321DD\322\314\323%\210\306\324\310\311\325DD\326\314\327%\210\306\330\310\311\331DD\332\314\315%\210\306\333\310\311\334DD\335\314\315\316\336&\210\306\337\310\311\340DD\341\314\323%\210\306\342\310\311\343DD\344\345\346\314\347&\210\306\350\310\311\351DD\352\314\323%\210\306\353\310\311\354DD\355\314\315\316\356&\207" [custom-declare-group remember nil "A mode to remember information." :group data custom-declare-variable remember-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Functions run upon entering `remember-mode'." :type hook :options (flyspell-mode turn-on-auto-fill org-remember-apply-template) remember-in-new-frame #[0 "\300\207" [nil] 1 #1#] "Non-nil means use a separate frame for capturing remember data." boolean remember-register #[0 "\300\207" [82] 1 #1#] "The register in which the window configuration is stored." character remember-filter-functions #[0 "\300\207" [nil] 1 #1#] "Functions run to filter remember data.\nAll functions are run in the remember buffer." remember-handler-functions #[0 "\300\207" [(remember-append-to-file)] 1 #1#] "Functions run to process remember data.\nEach function is called with the current buffer narrowed to what the\nuser wants remembered.\nIf any function returns non-nil, the data is assumed to have been\nrecorded somewhere by that function." (remember-store-in-mailbox remember-append-to-file remember-store-in-files remember-diary-extract-entries org-remember-handler) remember-all-handler-functions #[0 "\300\207" [nil] 1 #1#] "If non-nil every function in `remember-handler-functions' is called." remember-buffer #[0 "\300\207" ["*Remember*"] 1 #1#] "The name of the remember data entry buffer." :version "28.1" string remember-save-after-remembering #[0 "\300\207" [t] 1 #1#] "Non-nil means automatically save after remembering." remember-annotation-functions #[0 "\300\207" [(buffer-file-name)] 1 #1#] "Hook that returns an annotation to be inserted into the remember buffer." (org-remember-annotation buffer-file-name)] 8)#@21 Current annotation. (defvar remember-annotation nil (#$ . 2199))#@51 Initial contents to place into `remember-buffer'. (defvar remember-initial-contents nil (#$ . 2269)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable remember-before-remember-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Functions run before switching to the `remember-buffer'." :type hook remember-run-all-annotation-functions-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means use all annotations returned by `remember-annotation-functions'." boolean] 6)#@236 Remember an arbitrary piece of data. INITIAL is the text to initially place in the `remember-buffer', or nil to bring up a blank `remember-buffer'. With a prefix or a visible region, use the region as INITIAL. (fn &optional INITIAL) (defalias 'remember #[256 "\203\306\202 \307 !\210\n\203\310\311\312\313\314\315 \"\"\316#\202!\317\303!\320\f!\321\322!\210\2030\323\2021\324!\210\203A\325\326p\327 \"\330\"\210\330\331 \210deU\203u\203Sc\210 \203_ c\210;\203o\332\232\204o\333\261\210\313 eb\210\334\335\336!!\207" [remember-in-new-frame remember-register remember-run-all-annotation-functions-flag remember-annotation-functions remember-buffer buffer-offer-save frameset-to-register window-configuration-to-register mapconcat identity delq nil mapcar funcall "\n" run-hook-with-args-until-success get-buffer-create run-hooks remember-before-remember-hook switch-to-buffer-other-frame switch-to-buffer-other-window set-window-dedicated-p get-buffer-window selected-frame t remember-mode "" "\n\n" message substitute-command-keys "Use \\[remember-finalize] to remember the data" remember-annotation remember-initial-contents] 8 (#$ . 2804) (byte-code "\204\f \205\n\205\303 \304 {C\207" [current-prefix-arg mark-active transient-mark-mode region-beginning region-end] 2)])#@59 Call `remember' in another frame. (fn &optional INITIAL) (defalias 'remember-other-frame #[256 "\301\302!)\207" [remember-in-new-frame t remember] 3 (#$ . 4121) (byte-code "\205`\301 {C\207" [current-prefix-arg mark] 2)])#@64 Return a simple date. Nothing fancy. (fn &optional RFC822-P) (defalias 'remember-mail-date #[256 "\300\203 \301\202\n\302!\207" [format-time-string "%a, %e %b %Y %T %z" "%a %b %e %T %Y"] 3 (#$ . 4354)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put remember-mail-date speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@73 Using the first line of the current buffer, create a short description. (defalias 'remember-buffer-desc #[0 "e\212eb\210\300\210`eZ\301V\203e\301\\b\210`){\207" [nil 60] 3 (#$ . 4711)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable remember-mailbox funcall function #[0 "\300\207" ["~/Mail/remember"] 1 #1=""] "The file in which to store remember data as mail." :type file remember-default-priority #[0 "\300\207" ["medium"] 1 #1#] "The default priority for remembered mail messages." string] 6)#@232 Store remember data as if it were incoming mail. In which case `remember-mailbox' should be the name of the mailbox. Each piece of pseudo-mail created will have an `X-Todo-Priority' field, for the purpose of appropriate splitting. (defalias 'remember-store-in-mailbox #[0 "\303\304!\305\306!\307 \310 \311\312\313\"r\211q\210\314\315\"\216\316\317\320 \321\305\203%\322\202&\323!\262\313\305\2033\322\2024\323!\262  \324 \325  & c\210`c\210n\204R\326c\210\326c\210\211b\210\327\330\321\313#\203g\331\332!\210\202X\210\333ed\n#*\210\313\207" [remember-default-priority user-mail-address remember-mailbox read-string "Who is this item related to? " format-time-string "%s" remember-buffer-desc buffer-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] format "From %s %s\nDate: %s\nFrom: %s\nMessage-Id: \nX-Todo-Priority: %s\nTo: %s <%s>\nSubject: %s\n\n" user-login-name nil "%a, %e %b %Y %T %z" "%a %b %e %T %Y" system-name user-full-name "\n" re-search-forward "^\\(From[: ]\\)" replace-match ">\\1" append-to-file] 17 (#$ . 5287)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\310\321%\210\300\322\302\303\323DD\324\310\321\306\325&\210\300\326\302\303\327DD\330\310\331\306\332&\207" [custom-declare-variable remember-data-file funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "notes" ".notes"] 3 #1=""] "The file in which to store unprocessed data.\nWhen set via customize, visited file of the notes buffer (if it\nexists) might be changed." :version "24.4" :type file :set #[514 "\301\302!!\303\"\210\304!\205r\211q\210\305\306!!)\207" [remember-data-file find-buffer-visiting default-value set-default buffer-live-p set-visited-file-name expand-file-name] 6 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default remember-leader-text #[0 "\300\207" ["** "] 1 #1#] "The text used to begin each remember item." string remember-time-format #[0 "\300\207" ["%a %b %d %H:%M:%S %Y"] 1 #1#] "The format for time stamp, passed to `format-time-string'.\nThe default emulates `current-time-string' for backward compatibility." "27.1" remember-text-format-function #[0 "\300\207" [nil] 1 #1#] "The function to format the remembered text.\nThe function receives the remembered text as argument and should\nreturn the text to be remembered." (choice (const nil) function) "28.1"] 12)#@50 Remember, with description DESC, the given TEXT. (defalias 'remember-append-to-file #[0 "\305 \306 \307\203!\202 \310\n!\311\312\260\212db\210n?\205$\307)Q\313 !\211\203Ar\211q\210\212db\210c)\210\f\205?\314 )\207\315\316 #\207" [remember-text-format-function remember-leader-text remember-time-format remember-data-file remember-save-after-remembering buffer-string remember-buffer-desc "\n" format-time-string " (" ")\n\n" find-buffer-visiting save-buffer append-to-file nil] 9 (#$ . 7765)])#@342 Remember the data from BEG to END. It is called from within the `remember-buffer' to save the text that was entered. If BEG and END are nil, the entire buffer will be remembered. If you want to remember a region, supply a universal prefix to `remember' instead. For example: \[universal-argument] \[remember] RET. (fn &optional BEG END) (defalias 'remember-region #[512 "\206\f`\301 \206 e^\206`\301 \206d]\214}\210\203(\302\303!\210\202,\304\303!\210\305 )\207" [remember-all-handler-functions mark run-hooks remember-handler-functions run-hook-with-args-until-success remember-destroy] 6 (#$ . 8281) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable remember-data-directory funcall function #[0 "\300\207" ["~/remember"] 1 #1=""] "The directory in which to store remember data as files.\nUsed by `remember-store-in-files'." :type directory :version "24.4" remember-directory-file-name-format #[0 "\300\207" ["%Y-%m-%d_%T-%z"] 1 #1#] "Format string for the file name in which to store unprocessed data.\nThis is passed to `format-time-string'.\nUsed by `remember-store-in-files'." string] 8)#@177 Store remember data in a file in `remember-data-directory'. The file is named by calling `format-time-string' using `remember-directory-file-name-format' as the format string. (defalias 'remember-store-in-files #[0 "\302!\303 \304\305\306\"r\211q\210\307\310\"\216c\210\311\312\313\314 #!!*\207" [remember-directory-file-name-format remember-data-directory format-time-string buffer-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] write-file convert-standard-filename format "%s/%s"] 9 (#$ . 9488)])#@109 Remember the contents of the current clipboard. Most useful for remembering things from other applications. (defalias 'remember-clipboard #[0 "\300\301\302!!\207" [remember current-kill 0] 3 (#$ . 10070) nil])#@46 Remember the contents of the current buffer. (defalias 'remember-finalize #[0 "\300ed\"\207" [remember-region] 3 (#$ . 10285) nil])#@40 Destroy the current `remember-buffer'. (defalias 'remember-destroy #[0 "\302 \232\205\303p!\210\304 !\207" [remember-buffer remember-register buffer-name kill-buffer jump-to-register] 2 (#$ . 10422) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable remember-diary-file funcall function #[0 "\300\207" [nil] 1 ""] "File for extracted diary entries.\nIf this is nil, then `diary-file' will be used instead." :type (choice (const :tag "diary-file" nil) file)] 6)#@58 Translate MSG to an entry readable by diary. (fn ENTRY) (defalias 'remember-diary-convert-entry #[257 "\302 \303\304\"\216\203\305Q\262\306\307\"\203f\310\311!\210\312 \313\267\202M\314\315\"\316\314\317\"\316\314\320\"\260\202_\314\320\"\321\314\317\"\321\314\315\"\260\202_\314\317\"\316\314\315\"\316\314\320\"\260\322\211$\202g)\207" [remember-annotation calendar-date-style match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] " " string-match "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" require calendar replace-match #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (european 35 iso 56)) match-string 3 "/" 2 1 "-" t] 10 (#$ . 10924)]) (byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314&\207" [autoload diary-make-entry "diary-lib" custom-declare-variable remember-diary-regexp funcall function #[0 "\300\207" ["^DIARY:\\s-*\\(.+\\)"] 1 ""] "Regexp to extract diary entries." :type regexp :version "28.1"] 8)#@73 Extract diary entries from the region based on `remember-diary-regexp'. (defalias 'remember-diary-extract-entries #[0 "\212eb\210\304\305\304\306#\203\307\310\311!!B\262\202\211\2039\312\313\314\315#\304 #\210\n\2039r\316 \2062 !q\210\317 )\210)\304\207" [remember-diary-regexp remember-diary-file remember-save-after-remembering diary-file nil re-search-forward t remember-diary-convert-entry match-string 1 diary-make-entry mapconcat identity "\n" find-buffer-visiting save-buffer] 6 (#$ . 11960)])#@33 Keymap used in `remember-mode'. (defvar remember-mode-map (define-keymap "C-x C-s" 'remember-finalize "C-c C-c" 'remember-finalize "C-c C-k" 'remember-destroy) (#$ . 12477)) (defvar remember-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [remember-mode-hook variable-documentation put "Hook run after entering Remember mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp remember-mode-map definition-name remember-mode] 4) (defvar remember-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [remember-mode-abbrev-table remember-mode-map variable-documentation put purecopy "Keymap for `remember-mode'." boundp remember-mode-syntax-table definition-name remember-mode defvar-1 nil make-syntax-table "Syntax table for `remember-mode'." define-abbrev-table "Abbrev table for `remember-mode'." derived-mode-parent text-mode] 5)#@452 Major mode for output from \[remember]. This buffer is used to collect data that you want to remember. \ Just hit \[remember-finalize] when you're done entering, and it will file the data away for latter retrieval, and possible indexing. \{remember-mode-map} In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `remember-mode-hook', as the final or penultimate step during initialization. (defalias 'remember-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \316 \331\")\210\332\333!\207" [delay-mode-hooks major-mode mode-name remember-mode-map remember-mode-syntax-table remember-mode-abbrev-table make-local-variable t text-mode remember-mode "Remember" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table nil run-mode-hooks remember-mode-hook local-abbrev-table] 5 (#$ . 13771) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\207" [custom-declare-variable remember-notes-buffer-name funcall function #[0 "\300\207" ["*notes*"] 1 #1=""] "Name of the notes buffer.\nSetting it to *scratch* will hijack the *scratch* buffer for the\npurpose of storing notes." :type string :version "24.4" remember-notes-initial-major-mode #[0 "\300\207" [nil] 1 #1#] "Major mode to use in the notes buffer when it's created.\nIf this is nil, use `initial-major-mode'." (choice (const :tag "Use `initial-major-mode'" nil) (function :tag "Major mode" text-mode)) remember-notes-bury-on-kill #[0 "\300\207" [t] 1 #1#] "Non-nil means `kill-buffer' will bury the notes buffer instead of killing." boolean] 8)#@55 Save (if it is modified) and bury the current buffer. (defalias 'remember-notes-save-and-bury-buffer #[0 "\300 \203\301 \210\302 \207" [buffer-modified-p save-buffer bury-buffer] 1 (#$ . 15789) nil])#@39 Keymap used in `remember-notes-mode'. (defvar remember-notes-mode-map (define-keymap "C-c C-c" 'remember-notes-save-and-bury-buffer) (#$ . 15996))#@107 Non-nil if Remember-Notes mode is enabled. Use the command `remember-notes-mode' to change this variable. (defvar remember-notes-mode nil (#$ . 16149)) (make-variable-buffer-local 'remember-notes-mode)#@745 Minor mode for the `remember-notes' buffer. This sets `buffer-save-without-query' so that `save-some-buffers' will save the notes buffer without asking. \{remember-notes-mode-map} This is a minor mode. If called interactively, toggle the `Remember-Notes mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `remember-notes-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'remember-notes-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203>\312\313\314\306\307$\210\307\315\316\203H\317\202I\320\"\210\321\322!\203l\303 \203]\211\303 \232\203l\323\324\325\203h\326\202i\327\330$\210\210\331 \210\207" [remember-notes-mode local-minor-modes buffer-save-without-query current-message toggle 1 nil t boundp delq add-hook kill-buffer-query-functions remember-notes--kill-buffer-query run-hooks remember-notes-mode-hook remember-notes-mode-on-hook remember-notes-mode-off-hook called-interactively-p any message "%s %sabled%s" "Remember-Notes mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 16357) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar remember-notes-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [remember-notes-mode-map remember-notes-mode-hook variable-documentation put "Hook run after entering or leaving `remember-notes-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode remember-notes-mode boundp] 6)#@903 Return the notes buffer, creating it if needed, and maybe switch to it. This buffer is for notes that you want to preserve across Emacs sessions. The notes are saved in `remember-data-file'. If a buffer is already visiting that file, just return it. Otherwise, create the buffer, and rename it to `remember-notes-buffer-name', unless a buffer of that name already exists. Set the major mode according to `remember-notes-initial-major-mode', and enable `remember-notes-mode' minor mode. Use \\[remember-notes-save-and-bury-buffer] to save and bury the notes buffer. Interactively, or if SWITCH-TO is non-nil, switch to the buffer. Return the buffer. Set `initial-buffer-choice' to `remember-notes' to visit your notes buffer when Emacs starts. Set `remember-notes-buffer-name' to "*scratch*" to turn the *scratch* buffer into your notes buffer. (fn &optional SWITCH-TO) (defalias 'remember-notes #[256 "\304!\2067r\305!q\210 \203*\306 !\203 \307\232\203 \310 !\210\306 !\204*\311 !\210\n\206/ \210\312\313!\210p)\203?\314!\210\207" [remember-data-file remember-notes-buffer-name remember-notes-initial-major-mode initial-major-mode find-buffer-visiting find-file-noselect get-buffer "*scratch*" kill-buffer rename-buffer remember-notes-mode 1 pop-to-buffer-same-window] 4 (#$ . 18458) "p"])#@203 Function that `remember-notes-mode' adds to `kill-buffer-query-functions'. Save the current buffer if modified. If `remember-notes-bury-on-kill' is non-nil, bury it and return nil; otherwise return t. (defalias 'remember-notes--kill-buffer-query #[0 "\301 \203\302 \210\203\303 \210\304\207\305\207" [remember-notes-bury-on-kill buffer-modified-p save-buffer bury-buffer nil t] 1 (#$ . 19800)])#@27 This version of remember. (defconst remember-version "2.0" (#$ . 20206)) (byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete-variable remember-version emacs-version "28.1" provide remember] 4)