mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(mac-ae-open-documents): Adjust selection range parameter origins.

Browse Source
This commit is contained in:
YAMAMOTO Mitsuharu 2008-04-12 02:00:46 +00:00
parent a1b41389e4
commit 108b164dd8
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-12 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* term/mac-win.el (mac-ae-open-documents): Adjust selection range
parameter origins.
2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/python.el (python-mode): Don't mess with hippie-expand.

10
lisp/term/mac-win.el
View File

@ -1738,11 +1738,11 @@ if possible. If there's no such frame, a new frame is created."
(let ((line (car selection-range))
(start (cadr selection-range))
(end (nth 2 selection-range)))
(if (> line 0)
(goto-line line)
(if (and (> start 0) (> end 0))
(progn (set-mark start)
(goto-char end))))))
(if (>= line 0)
(goto-line (1+ line))
(if (and (>= start 0) (>= end 0))
(progn (set-mark (1+ start))
(goto-char (1+ end)))))))
((stringp search-text)
(re-search-forward
(mapconcat 'regexp-quote (split-string search-text) "\\|")