← Back to branch summary

~ubuntu-branches/ubuntu/utopic/howm/utopic-proposed

« back to all changes in this revision

Viewing changes to riffle.el

  • Committer: Package Import Robot
  • Author(s): Youhei SASAKI
  • Date: 2014-03-09 15:58:58 UTC
  • mfrom: (1.1.5) (0.1.10 sid)
  • Revision ID: package-import@ubuntu.com-20140309155858-3jqurl36z3kbxq53
Tags: 1.4.2-2
* Handling new emacsen-common
  - Install a compat file with emacsen-compat                               |
  - Add conflicts: emacsen-common (<< 2.0.0)                                |
  - Add postinst/prerm

Show diffs side-by-side

added added

removed removed

Lines of Context:
riffle.el
1
1
;;; riffle.el --- template of list browser with immediate preview
2
 
;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
 
2
;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013
3
3
;;;   HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
4
 
;;; $Id: riffle.el,v 1.41 2011-12-31 15:07:29 hira Exp $
 
4
;;; $Id: riffle.el,v 1.42 2012-12-29 08:57:18 hira Exp $
5
5
;;;
6
6
;;; This program is free software; you can redistribute it and/or modify
7
7
;;; it under the terms of the GNU General Public License as published by
94
94
;; derived-mode-merge-syntax-tables, which takes long time.
95
95
;; To avoid it, we need ":syntax-table nil". Sigh...
96
96
 
97
 
(put 'riffle-define-derived-mode 'lisp-indent-hook 3)
98
97
(defmacro riffle-define-derived-mode (child parent name
99
98
                                            &optional docstring
100
99
                                            &rest body)
 
100
  (declare (indent 3))
101
101
  `(define-derived-mode ,child ,parent ,name
102
102
     ,docstring
103
103
     :syntax-table nil
324
324
  (let ((n (riffle-contents-item-number (point))))
325
325
    (riffle-summary (riffle-name) (riffle-item-list) riffle-type)
326
326
;    (howm-view-summary (riffle-name) (riffle-item-list))
327
 
    (goto-line (1+ n)))) ;; top = 1 for goto-line
 
327
    (howm-goto-line (1+ n)))) ;; top = 1 for goto-line
328
328
 
329
329
(defun riffle-contents-goto-next-item (&optional n)
330
330
  (interactive "p")
466
466
 
467
467
;; 'Place' is line number at now
468
468
(defun riffle-set-place (place)
469
 
  (goto-line place))
 
469
  (howm-goto-line place))
470
470
(defun riffle-get-place (&optional point)
471
471
  (riffle-line-number point))
472
472