equal
deleted
inserted
replaced
942 |
942 |
943 (when (eq window-system 'x) |
943 (when (eq window-system 'x) |
944 (setq x-select-enable-clipboard t)) |
944 (setq x-select-enable-clipboard t)) |
945 |
945 |
946 (when (fboundp 'er/expand-region) |
946 (when (fboundp 'er/expand-region) |
947 (global-set-key (kbd "s-=") 'er/expand-region)) |
947 (global-set-key (kbd "s-w") 'er/expand-region)) |
948 |
948 |
949 (defun my-mark-line () |
949 (defun my-mark-line () |
950 "Mark current line." |
950 "Mark current line." |
951 (forward-line 0) |
951 (forward-line 0) |
952 (set-mark (point)) |
952 (set-mark (point)) |
1661 (message "%s = %s" expr result) |
1661 (message "%s = %s" expr result) |
1662 (end-of-line) |
1662 (end-of-line) |
1663 (unless (eq (char-before) ?\ ) |
1663 (unless (eq (char-before) ?\ ) |
1664 (insert ?\ )) |
1664 (insert ?\ )) |
1665 (insert result))))) |
1665 (insert result))))) |
|
1666 |
|
1667 (global-set-key (kbd "s-=") #'my-calc-line) |
1666 |
1668 |
1667 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1669 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1668 (message "rst, reStructuredText") |
1670 (message "rst, reStructuredText") |
1669 |
1671 |
1670 ;; Maintaining the table of contents up-to-date. |
1672 ;; Maintaining the table of contents up-to-date. |