143 |
((pmin) ; thanks, Havard |
((pmin) ; thanks, Havard |
144 |
(lastp) |
(lastp) |
145 |
(cur-buf (current-buffer)) |
(cur-buf (current-buffer)) |
146 |
(tpoint (point)) |
(tpoint (point)) |
147 |
(ps-ypos 63) |
(ps-ypos 63) |
148 |
(lcount 0) |
(lcount 0) |
149 |
(ipage 1) |
(ipage 1) |
175 |
(switch-to-buffer cur-buf) |
(switch-to-buffer cur-buf) |
176 |
(goto-char (point-min)) ;start at beginning |
(goto-char (point-min)) ;start at beginning |
177 |
(save-excursion |
(save-excursion |
178 |
;;as long as we see a newline the document is not ended. |
;;as long as we see a newline the document is not ended. |
179 |
(while (re-search-forward "\n" nil t) |
(while (re-search-forward "\n" nil t) |
180 |
(previous-line 1) |
(previous-line 1) |
181 |
(beginning-of-line) |
(beginning-of-line) |
1375 |
;; Key bindings |
;; Key bindings |
1376 |
|
|
1377 |
|
|
1378 |
;;; I'd rather not fill up the menu bar menus with |
;;; I'd rather not fill up the menu bar menus with |
1379 |
;;; lots of random miscellaneous features. -- rms. |
;;; lots of random miscellaneous features. -- rms. |
1380 |
;;;(define-key-after |
;;;(define-key-after |
1381 |
;;; (lookup-key global-map [menu-bar edit]) |
;;; (lookup-key global-map [menu-bar edit]) |