445 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
445 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
446 (make-variable-buffer-local 'scroll-margin) |
446 (make-variable-buffer-local 'scroll-margin) |
447 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
447 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
448 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
448 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
449 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) ) |
449 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) ) |
|
450 |
|
451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
452 (message "chars, unicode") |
|
453 |
|
454 (defun my-print-unicode (&optional start end) |
|
455 "Print UNICODE table." |
|
456 (interactive "nstart: \nnend: ") |
|
457 (switch-to-buffer (get-buffer-create "*UNICODE*")) |
|
458 (erase-buffer) |
|
459 (let ( (i start) ) |
|
460 (while (<= i end) |
|
461 (insert (format "%s: U+%04x, %s\n" (char-to-string i) i (get-char-code-property i 'name))) |
|
462 (setq i (1+ i)) |
|
463 ))) |
450 |
464 |
451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
465 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
452 (message "search, isearch, occur") |
466 (message "search, isearch, occur") |
453 |
467 |
454 (setq case-fold-search t) |
468 (setq case-fold-search t) |