]>
code.delx.au - gnu-emacs-elpa/log
summary |
shortlog | log |
commit |
commitdiff |
tree
first ⋅ prev ⋅ next
Michael Heerdegen [Mon, 9 Nov 2015 05:08:19 +0000 (06:08 +0100)]
convey Copyright to the FSF from the start
Michael Heerdegen [Mon, 9 Nov 2015 05:00:51 +0000 (06:00 +0100)]
fix header: change "Homepage" to "URL"
Michael Heerdegen [Mon, 9 Nov 2015 01:43:15 +0000 (02:43 +0100)]
remove redundant :group specs
Michael Heerdegen [Mon, 9 Nov 2015 01:36:24 +0000 (02:36 +0100)]
add .gitignore
Michael Heerdegen [Mon, 9 Nov 2015 01:35:53 +0000 (02:35 +0100)]
bump version
Michael Heerdegen [Mon, 9 Nov 2015 01:35:20 +0000 (02:35 +0100)]
wrap (require 'cl-lib) in eval-when-compile
Michael Heerdegen [Mon, 9 Nov 2015 01:34:30 +0000 (02:34 +0100)]
convey copyright to the FSF
Michael Heerdegen [Thu, 10 Sep 2015 06:17:46 +0000 (08:17 +0200)]
fix whitespace, no code change
Michael Heerdegen [Sat, 8 Aug 2015 20:38:28 +0000 (22:38 +0200)]
bump version to 1.3
Michael Heerdegen [Wed, 9 Sep 2015 12:28:05 +0000 (14:28 +0200)]
add on-screen-unload-function
Michael Heerdegen [Wed, 9 Sep 2015 12:25:20 +0000 (14:25 +0200)]
handle on-screen-treat-cut-lines -> t nicely
Michael Heerdegen [Wed, 19 Aug 2015 20:30:06 +0000 (22:30 +0200)]
make comments respect conventions
Michael Heerdegen [Sat, 8 Aug 2015 20:36:55 +0000 (22:36 +0200)]
silence compiler when hexrgb.el is not installed
Michael Heerdegen [Sat, 8 Aug 2015 20:34:28 +0000 (22:34 +0200)]
use separate face for "line" style highlighting
Michael Heerdegen [Sun, 2 Aug 2015 22:47:58 +0000 (00:47 +0200)]
change default of on-screen-treat-cut-lines back to nil
Michael Heerdegen [Wed, 3 Jun 2015 16:27:45 +0000 (18:27 +0200)]
bump version to 1.2
Michael Heerdegen [Wed, 3 Jun 2015 16:25:58 +0000 (18:25 +0200)]
new user variable: on-screen-inhibit-highlighting
Michael Heerdegen [Wed, 20 May 2015 15:11:25 +0000 (17:11 +0200)]
new option: on-screen-drawing-threshold
Michael Heerdegen [Wed, 18 Mar 2015 04:34:40 +0000 (05:34 +0100)]
bump version to 1.1
Michael Heerdegen [Wed, 18 Mar 2015 04:33:47 +0000 (05:33 +0100)]
use lexical binding
Michael Heerdegen [Mon, 16 Mar 2015 02:46:55 +0000 (03:46 +0100)]
set default value of on-screen-treat-cut-lines to t
Michael Heerdegen [Mon, 16 Mar 2015 02:41:41 +0000 (03:41 +0100)]
avoid error when user sets on-screen-treat-cut-lines to just t
instead of a float
Michael Heerdegen [Sat, 24 Jan 2015 07:59:44 +0000 (08:59 +0100)]
small changes in header
Michael Heerdegen [Sat, 3 May 2014 03:10:56 +0000 (05:10 +0200)]
add Package-Requires header
Michael Heerdegen [Tue, 1 Apr 2014 05:32:46 +0000 (07:32 +0200)]
use a more modest gray for on-screen-narrow-line face
Michael Heerdegen [Fri, 21 Mar 2014 14:00:23 +0000 (15:00 +0100)]
convert to cl-lib
Michael Heerdegen [Tue, 18 Mar 2014 11:40:17 +0000 (12:40 +0100)]
add workaround for bug#16796
Michael Heerdegen [Tue, 18 Mar 2014 11:39:08 +0000 (12:39 +0100)]
always remove highlighting when a command caused multiple changes
Michael Heerdegen [Tue, 18 Mar 2014 11:36:08 +0000 (12:36 +0100)]
minor change (rename two functions)
Michael Heerdegen [Sat, 18 Jan 2014 19:43:10 +0000 (20:43 +0100)]
Update copyright
Michael Heerdegen [Fri, 13 Dec 2013 03:54:05 +0000 (04:54 +0100)]
add missing autoload for global-on-screen-mode alias
Michael Heerdegen [Thu, 21 Nov 2013 10:42:58 +0000 (11:42 +0100)]
fix invisible fringe markers positioned in invisible lines (e.g. org)
on-screen-beginning-of-line, on-screen-end-of-line: use
forward-visible-line, end-of-visible-line
Michael Heerdegen [Wed, 9 Oct 2013 00:25:46 +0000 (02:25 +0200)]
new option: on-screen-remove-when-edit, decrease overlay priority
- Make overlay removing when changing a buffer customizable (new option
`on-screen-remove-when-edit'). Off by default (previously, the
feature was always enabled).
- Radically decreased on-screen-overlay-priority (to 30). It should be
less than isearch and ediff overlay priorities, but still larger than
e.g. stripe-buffer overlay priority.
Michael Heerdegen [Fri, 27 Sep 2013 16:18:40 +0000 (18:18 +0200)]
after-scroll: don't remove highlighting when called in succession
avoid removing highlighting when `window-scroll-functions' is
called multiple times in succession (follow-mode does that)
Michael Heerdegen [Sun, 22 Sep 2013 17:53:27 +0000 (19:53 +0200)]
minor change
Michael Heerdegen [Sat, 14 Sep 2013 19:54:48 +0000 (21:54 +0200)]
defface on-screen-shadow: make slightly more colorful
Just grey is too common, e.g. used by "stripe-buffer". Using a bit
color makes it more distinguishable form other faces.
Michael Heerdegen [Tue, 10 Sep 2013 19:44:22 +0000 (21:44 +0200)]
comment in on-screen-make-narrow-line-overlay
Michael Heerdegen [Tue, 10 Sep 2013 16:24:08 +0000 (18:24 +0200)]
new-var on-screen-overlay-priority
Use it instead of hardcoding a value
Michael Heerdegen [Mon, 9 Sep 2013 20:14:06 +0000 (22:14 +0200)]
remove visual line stuff
This didn't work well at all. And when I was in w3m, and there were
buttons, and I hit M-: foo, I got this error:
Debugger entered--Lisp error: (args-out-of-range 2501 2501)
line-pixel-height()
line-move(-1 t)
on-screen-beginning-of-line(0)
(save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))
(save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))
(if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))
(let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# (setq #1# (cdr #1#)))) (signal (quote wrong-number-of-arguments) (list nil (length #1#))))) (_y (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_rtop (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rbot (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rowh (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))))
(progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# (setq #1# ...))) (signal (quote wrong-number-of-arguments) (list nil (length #1#))))) (_y (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_rtop (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rbot (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rowh (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))))
(if (not (cddr vis)) end (progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# ...)) (signal (quote wrong-number-of-arguments) (list nil ...)))) (_y (car-safe (prog1 #1# (setq #1# ...)))) (_rtop (car-safe (prog1 #1# (setq #1# ...)))) (rbot (car-safe (prog1 #1# (setq #1# ...)))) (rowh (car-safe (prog1 #1# (setq #1# ...)))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))))))
(let* ((end (window-end window)) (vis (and on-screen-treat-cut-lines (pos-visible-in-window-p (1- end) window t)))) (if (not (cddr vis)) end (progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= ... 6) (car-safe ...) (signal ... ...))) (_y (car-safe (prog1 #1# ...))) (_rtop (car-safe (prog1 #1# ...))) (rbot (car-safe (prog1 #1# ...))) (rowh (car-safe (prog1 #1# ...))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))))))
on-screen-window-end(#<window 0x2f99f40 on *Backtrace*>)
(list (on-screen-window-start win) (on-screen-window-end win))
(on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))
(progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))
(if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))))
(save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))))
(lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))))))(#<window 0x2f99f40 on *Backtrace*>)
mapc((lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))))) (#<window 0x2f99f40 on *Backtrace*>))
(condition-case nil (mapc (function (lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win ...)))))) (on-screen-get-windows)) ((debug error) nil))
on-screen-record-ranges()
read-from-minibuffer("" nil (keymap (7 . minibuffer-keyboard-quit) keymap (9 . completion-at-point) (27 keymap (9 . completion-at-point)) keymap (18 . helm-minibuffer-history) (menu-bar keymap (minibuf #1="Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "\r " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") #1#)) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . minibuffer-keyboard-quit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (44 . my-mb-yank-text-before-point) (46 . my-mb-yank-text-at-point) (107 . delete-field-at-point) (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil read-expression-history)
my-read--expression("")
byte-code("\301\302\303\304\305!\"!\b D\207" [current-prefix-arg read format "(my-eval-in-mb-wrapper %s)" my-read--expression ""] 5)
call-interactively(my-eval-expression nil nil)
command-execute(my-eval-expression)
Michael Heerdegen [Sun, 1 Sep 2013 13:42:46 +0000 (15:42 +0200)]
on-screen-treat-cut-lines, default nil (faster)
Michael Heerdegen [Sun, 1 Sep 2013 12:16:42 +0000 (14:16 +0200)]
added homepage to header
Michael Heerdegen [Sun, 1 Sep 2013 11:58:07 +0000 (13:58 +0200)]
removed optional arg of on-screen-record-ranges (not used)
Michael Heerdegen [Sat, 31 Aug 2013 11:36:51 +0000 (13:36 +0200)]
removed lexical-binding: t (confusing because not necessary)
Michael Heerdegen [Fri, 30 Aug 2013 13:08:01 +0000 (15:08 +0200)]
minor correction
Michael Heerdegen [Mon, 26 Aug 2013 13:11:14 +0000 (15:11 +0200)]
wrapped on-screen-record-data in condition-case
Michael Heerdegen [Sat, 24 Aug 2013 17:34:52 +0000 (19:34 +0200)]
mc
Michael Heerdegen [Wed, 14 Aug 2013 19:24:58 +0000 (21:24 +0200)]
Doc and name cleanups
Michael Heerdegen [Wed, 14 Aug 2013 16:47:30 +0000 (18:47 +0200)]
increased def value of on-screen-delay
Michael Heerdegen [Fri, 9 Aug 2013 12:14:14 +0000 (14:14 +0200)]
Initial commit