Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
77 lines (69 sloc) 8.18 KB
;ELC
;;; Compiled by tyraeltong@gmail.com on Sun Sep 2 21:59:48 2012
;;; from file /Users/tyraeltong/.emacs.d/visible-mark.el
;;; in Emacs version 24.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\301%\207" [custom-declare-group visible-mark nil "Show the position of your mark." :group convenience :prefix "visible-mark-" custom-declare-face visible-mark-face ((((type tty) (class color)) (:background "gray" :foreground "white")) (((type tty) (class mono)) (:inverse-video t)) (((class color) (background dark)) (:underline t)) (((class color) (background light)) (:background "grey80")) (t (:background "gray"))) "Face for the mark."] 8)
#@35 The overlays used in this buffer.
(defvar visible-mark-overlays nil (#$ . 1034))
(make-variable-buffer-local 'visible-mark-overlays)
(defvar visible-mark-non-trailing-faces nil)
#@59 If non-nil, inhibit trailing overlay with underline face.
(custom-declare-variable 'visible-mark-inhibit-trailing-overlay 't '(#$ . 1218) :group 'visible-mark :type 'boolean)
#@33 A number of mark to be visible.
(custom-declare-variable 'visible-mark-max '1 '(#$ . 1399) :group 'visible-mark :type 'integer)
#@23 A list of mark faces.
(custom-declare-variable 'visible-mark-faces 'nil '(#$ . 1533) :group 'visible-mark :type '(repeat face))
#@39 A list of buffer names to be excluded
(custom-declare-variable 'global-visible-mark-mode-exclude-alist 'nil '(#$ . 1667) :group 'visible-mark :type '(repeat regexp))
(defalias 'visible-mark-initialize-faces #[nil "\205V ?\205V\306 \307\f W\203P\f8\206\310\311\312\313\f\"!\314\"\210\315\306\316\317\320\"\206<\321\320\322\323\321&\210\nB*\fT\211\202*\n\237\211)\207" [visible-mark-inhibit-trailing-overlay visible-mark-non-trailing-faces faces visible-mark-max i #1=#:--cl-dotimes-temp-- nil 0 visible-mark-face intern format "visible-mark-non-trailing-face%s" copy-face set-face-attribute :foreground face-attribute :background t unspecified :underline visible-mark-faces symbol face] 10])
(defalias 'visible-mark-initialize-overlays #[nil "\306\307\"\210\310\n\311 \fW\203\"\312ee\"\211 B) T\211\202\f* \237\211)\207" [visible-mark-overlays overlays visible-mark-max i #1=#:--cl-dotimes-temp-- overlay mapcar delete-overlay nil 0 make-overlay] 4])
#@63 Move the overlay in `visible-mark-overlay' to a new position.
(defalias 'visible-mark-move-overlays #[nil "\306 B \f\307  W\205e \242\n@\205$\310!\211\203W\311\312\203D\212b\210l)\203D 8\202L 8\206L\313#\210\314\211T#\210 A+\nA T\211\202 ,\207" [mark-ring visible-mark-overlays overlays marks visible-mark-max i mark-marker 0 marker-position overlay-put face visible-mark-face move-overlay #1=#:--cl-dotimes-temp-- mark overlay pos visible-mark-inhibit-trailing-overlay visible-mark-non-trailing-faces visible-mark-faces] 6 (#$ . 2665)])
(require 'easy-mmode)
(defalias 'visible-mark-mode-maybe #[nil "\303p!\203\304\207\305\306!\211\205\306K\307\216\306\310M\210\306\n!+\203\"\304\207\311 \207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- global-visible-mark-mode-exclude-alist minibufferp nil fboundp fun ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# fun fmakunbound] 2)) #[(arg) "\205\301@\302 \"\206\303A!\207" [arg string-match buffer-name fun] 3] visible-mark-mode] 3])
#@103 Non-nil if Visible-Mark mode is enabled.
Use the command `visible-mark-mode' to change this variable.
(defvar visible-mark-mode nil (#$ . 3728))
(make-variable-buffer-local 'visible-mark-mode)
#@34 A mode to make the mark visible.
(defalias 'visible-mark-mode #[(&optional arg) "\304  \305=\203\n?\202\306 !\307V\211\203(\310 \210\311 \210\312\313\314\315\316$\210\2025\317\320 \"\210\315\321\313\314\316#\210\322\323\n\203?\324\202@\325\"\210\326\327!\203a\304 \203T\304 \232\203a\330\331\n\203^\332\202_\333\"\210)\334 \210\n\207" [#1=#:last-message arg visible-mark-mode visible-mark-overlays current-message toggle prefix-numeric-value 0 visible-mark-initialize-faces visible-mark-initialize-overlays add-hook post-command-hook visible-mark-move-overlays nil t mapcar delete-overlay remove-hook run-hooks visible-mark-mode-hook visible-mark-mode-on-hook visible-mark-mode-off-hook called-interactively-p any message "Visible-Mark mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 3927) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [visible-mark-mode-map add-minor-mode visible-mark-mode nil boundp] 6)
(defvar visible-mark-mode-major-mode nil)
(make-variable-buffer-local 'visible-mark-mode-major-mode)
#@293 Non-nil if Global-Visible-Mark mode is enabled.
See the command `global-visible-mark-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-visible-mark-mode'.
(custom-declare-variable 'global-visible-mark-mode 'nil '(#$ . 5019) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'visible-mark :type 'boolean)
#@355 Toggle Visible-Mark mode in all buffers.
With prefix ARG, enable Global-Visible-Mark mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Visible-Mark mode is enabled in all buffers where
`visible-mark-mode-maybe' would do it.
See `visible-mark-mode' for more information on Visible-Mark mode.
(defalias 'global-visible-mark-mode #[(&optional arg) "\306  \307=\203\n?\202\310 !\311V\211\203/\312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\312\320\321\"\210\202C\322\313\314\"\210\322\315\314\"\210\322\316\317\"\210\322\320\321\"\210\323 \324\211\203m\f@r q\210\n\203]\325 \210\202e \203e\305\326!\210)\fA\211\204L*\327\330\n\203x\331\202y\332\"\210\333\334!\203\236\335\302!\210\306 \203\221\306 \232\203\236\336\337\n\203\233\340\202\234\341\"\210)\342 \210\n\207" [#1=#:last-message arg global-visible-mark-mode buf #2=#:--cl-dolist-temp-- visible-mark-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-visible-mark-mode-enable-in-buffers change-major-mode-after-body-hook find-file-hook global-visible-mark-mode-check-buffers change-major-mode-hook global-visible-mark-mode-cmhh remove-hook buffer-list nil visible-mark-mode-maybe -1 run-hooks global-visible-mark-mode-hook global-visible-mark-mode-on-hook global-visible-mark-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Visible-Mark mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 5491) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [global-visible-mark-mode-map add-minor-mode global-visible-mark-mode nil boundp] 6)
(defvar global-visible-mark-mode-buffers nil)
(defalias 'global-visible-mark-mode-enable-in-buffers #[nil "\306\211\2059\n@\307 !\2031r q\210 \f=\2040 \203+\305\310!\210\311 \210\f\2020\311 \210\f)\nA\211\204\306*\207" [global-visible-mark-mode-buffers buf #1=#:--cl-dolist-temp-- visible-mark-mode-major-mode major-mode visible-mark-mode nil buffer-live-p -1 visible-mark-mode-maybe] 3])
(put 'global-visible-mark-mode-enable-in-buffers 'definition-name 'global-visible-mark-mode)
(defalias 'global-visible-mark-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-visible-mark-mode-buffers global-visible-mark-mode-enable-in-buffers nil remove-hook post-command-hook global-visible-mark-mode-check-buffers] 3])
(put 'global-visible-mark-mode-check-buffers 'definition-name 'global-visible-mark-mode)
(defalias 'global-visible-mark-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-visible-mark-mode-buffers add-hook post-command-hook global-visible-mark-mode-check-buffers] 3])
(byte-code "\300\301\302\303#\210\304\305!\207" [put global-visible-mark-mode-cmhh definition-name global-visible-mark-mode provide visible-mark] 4)